Hola, una opción es usar el método substring
Código vb.net:
Ver originalDim letras As String
letras = "HolaAmigos"
MessageBox.Show(letras.Substring(0, 1))
El primer parámetro es el índice de donde empezará a extraer los caracteres y el segundo la cantidad que extraerá.
Espero te ayude
