Excel Vba Extract Text From String Indices Must Be Int