Excel Vba String Variable Maximum Roth