E per i nomi composti come Maria Rita, Giovanni Paolo ... ?

Ti consiglio questo semplice codice (la Split mi sembra inutile ...)

codice:
Private Sub Command1_Click()
  Dim nome As String
  nome = StrConv(Trim$(Text1.Text), vbProperCase)
  MsgBox Trim(nome)
End Sub
P.S. Ooops ... sei arrivato prima di un soffio ... ... Buongiorno