Excel Vba How To Separate Two Names From String To Real Number