Excel Vba Get Substring C