Visual Basic String Substring Apex