Excel Vba Get First Character Of String