Primer letra mayúscula y las siguientes minusculas

[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