hola la primera letra de una cadena se consigue con la instruccion left
que recoge los x caracteres de una cadena empezando por la izq.
ejemplo: si tienes un texbox que en el text pone pepe y al pulsar un boton quieres que
ponga solo la p
coloca en un form1 un texbox con el text que diga pepe
coloca un boton command1 y dentro esto:
Cita: Private Sub Command1_Click()
Text1.Text = Left(Text1.Text, 1)
End Sub
si te fijas el 1 es el primer caracter empezando por la izq si pones un 2 seria pe
un buen tutorial aqui--->
http://dieumsnh.qfb.umich.mx/VisualBasic/