Excel Vba How To Separate Two Names From String