Primer letra mayúscula y las siguientes minusculas

[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