The Left() function will do this. example: Dim aString as string = "This is a test string" Dim aFirstChar as string = Left(aString, 1) ' aFirstChar will contain "T" ' the second parameter is the number of characters, so ' Left(aString,4) will contain "This"