Primer letra mayúscula y las siguientes minusculas

[Fabuazul]

Aloha!!!

En una caja de texto tengo para entrar al sistema que diseñe, los usuarios deben poner su nombre y apellido (sin passwrod ni nada por el estilo), quiero que si los usuarios ingresan su nombre y después dan enter la primera letra de su nombre la tome por default mayúscula y por consecuente el apellido también siga esta regla.

Es como escribir la primera línea en Word de un formato nuevo, de manera automática nos da la primer letra mayúscula y las demás no las toma en cuenta.

¿Qué rutina necesito para esto?

Gracias!!
Salu2.

[bubilo]

Esto lo hice en un formulario para ingresar datos de una persona
cuando sale del cuadro de texto se le ponen a la primera letra de cada palabra la mayuscula..

tnombre es el cuadro de texto


Private Sub tnombre_LostFocus()
Dim buby As Variant
Dim temp As String
Dim final As String
buby = Split(tnombre.Text)
For x = 0 To UBound(buby)
temp = Left(buby(x), 1)
temp = UCase(temp) & LCase(Mid(buby(x), 2, Len(buby(x))))
final = final & " " & temp
Next x
tnombre.Text = Trim(final)
End Sub

[Fabuazul]

Gracias bubilo!!

Funciona...

...pero no quiero que lo haga cuando pierda el focus, sino cuando le de un espacio para ingresar el apellido.

Si no cumple la regla quiero que haga la rutina y sino que lo ignore.

[bubilo]

Private Sub tnombre_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
Dim buby As Variant
Dim temp As String
Dim final As String
buby = Split(tnombre.Text)
For x = 0 To UBound(buby)
temp = Left(buby(x), 1)
temp = UCase(temp) & LCase(Mid(buby(x), 2, Len(buby(x))))
final = final & " " & temp
Next x
tnombre.Text = Trim(final)
tnombre.SelStart = Len(final)
End If
End Sub

[Fabuazul]

Gracias bubilo !!

Eso era justamente lo que necesitaba. Te debo una...