Visual Basic - Trabajar con mayúsculas.

Hola, tengo un text7 en el que lo que necesito es que al escribir en la caja, me ponga la primera letra en mayúscula y el restlo en minúscula.
de momento se como se pone todo el contenido el mayuscula:

Private Sub Text7_KeyPress(KeyAscii As Integer)
' Pone todo el texto en mayúsculas.
KeyAscii = Asc(UCase(Chr(KeyAscii)))
end sub

Ahora necesito la primera letra en mayuscula y el resto en minúscula ¿que código necesita?

Gracias.

Prueba UCase(Mid(Text1,1,1))

No funciona, solo aparecen: 1111111 cada vez que pulso una tecla.

En el evento LostFocus del Text:
Dim s() As String, i As Integer
s = Split(Text1.Text, " ")
For i = LBound(s) To UBound(s)
Mid$(s(i), 1, 1) = UCase$(Mid$(s(i), 1, 1))
Next
Text1.Text = Join$(s, " ")
Saludos

tampoco funciona Nicolas, si lo pongo en el evento lostfocus, no hace nada, si lo pongo en Private Sub Text7_KeyPress(KeyAscii As Integer), la primera la escribe en minuscula y las siguientes en mayúscula (justo lo contrario de lo que quiero y encima me escribe de izquierda a derechas, vamos, al reves.

ponlo en el evento LOSTFOCUS

a = UCase(Mid(Text1, 1, 1))
Text1 = a + LCase(Right(Text1, Len(Text1) - 1))

a ver si te sirve, te hace el cambio cuando pierdas el foco

Un millón de gracias, ahora si que funciona Jose Carlos. Gracias y un saludo.