[VB6] Prima lettera maiuscola

[Petra]

Private Sub Command1_Click()
Dim arr As Variant, cont As Integer, nome As String
arr = Split(Me.Text1.Text, " ")
For cont = 0 To UBound(arr)
 arr(cont) = UCase(Chr(Asc(arr(cont)))) & LCase(Right(arr(cont)), Len(arr(cont)) - 1)
 nome = nome & " " & arr(cont)
Next
MsgBox Trim(nome)
End Sub

Questa l'ho appena scritta. Consente di convertire la prima lettera di ogni parola, situata in una stringa, in maiuscola e le altre in minuscolo, ma vorrei sapere se esiste una funzione che mi evita tutto ciò...non vorrei avere trovare errori all'interno del db!!!