Visual Basic - ¿como poner la primera letra de TextBox en Mayuscu

Hola a tod@s:
Alguien conoce la forma de que cuando se abandone un Textbox en la palabra que se ha escrito se ponga la primera letra en mayúscula de forma automática.
Gracias.

Esto hace lo que queres solo tenes que encargarte de las validaciones.
Private Sub Text1_LostFocus()
Text1 = UCase(Left(Text1, 1)) + LCase(Mid(Text1, 2, Len(Text1)))
End Sub

Espero te sirva sino comentalo

Otra forma sería:

Text1.Text = UCase(Left(Text1.Text, 1)) & Right(Text1.Text, Len(Text1.Text) - 1)

Saludos Pola