Extraer letras de un TextBox

Mythoman
13 de Enero del 2009
Buenas , necesito saber como puedo hacer para extraer la primera letra de un textbox, no se muy bien que funcion pudeo utilizar.
Tengo un TextBox y necesito estraer la primera lera a otro text box

Text1
ola mundo

Text2
H

Muchas gracias a todos

mvallejos
13 de Enero del 2009
Cadena = "Hola Mundo"

Text1.text = Mid(Cadena, 2, len(Cadena) - 1)
Text2.Text = Left(Cadena,1)