Visual Basic - letras mayusculas

y que tal amigos. una ayuditas pues, tengo que hacer una especie de factura y quiero que al poner el NOMBRE, se transformen automaticamente las primeras letras del nombre y apellido, ejemplo:
de: matirn gonzales a: Martin Gonzales, gracias por su attention.

Prueba con este codigo y después nos comentas.

Dim s() As String, i As Integer
s = Split(VariableNombre, " ")
For i = LBound(s) To UBound(s)
Mid$(s(i), 1, 1) = UCase$(Mid$(s(i), 1, 1))
Next
VariableNombre = Join(s)

Dim s() As String, i As Integer
s = Split(VariableNombre, " ")
For i = LBound(s) To UBound(s)
Mid$(s(i), 1, 1) = UCase$(Mid$(s(i), 1, 1))
Next
waasuuu, tan dificil es, antes que nada, donde para que sirve split?

pero donde coloco el codigo?

Está claro que esto está lleno de ignorantes y borregos. Es mi última intervención en este foro, intente ayudar pero parece ser que alguien no le interesa eso.
Si quereis hacer preguntas sobre VB podeis encontrar otros foros en los que no haya tanto payaso. Sólo buscar en <Google>

Maria, tienes toda la razón del mundo, la verdad estos días he entrado por aquí para un par de dudas, también he intentado resolver otras, me he fijado en la gran cantidad de respuestas que ofreces a todo el mundo pero cuando te encuentras casos así imagino que es para desesperarte. Bueno, lo que quiero decirte es que por unos pocos lo pagan muchos, de todos modos gracias por todos tus consejos. Espero que la gente se de cuenta que antes de hacer perder el tiempo a otros deberían al menos intentarlo por si mismos aunque solo fuese un poco.

Private Sub Text1_Change()
Text1.Text = StrConv(Text1.Text, vbProperCase)
Text1.SelStart = 50000
End Sub