Scrivere in una textbox il primo carattere maiuscolo e il resto minuscolo

[zorro77]

Salve a tutti
vorrei poter scrivere in una texbox, il primo carattere maiuscolo e il resto tutto minuscolo, eventualmente, dal momento che sono campi "Cognome" e "Nome", se il cognome è del tipo "De Rosa", dopo lo spazio mi viene ridato il primo carattere maiuscolo.

Al momento ho scritto così

Private Sub txtFields_LostFocus(Index As Integer)
    txtFields(2) = UCase(txtFields(2))
End Sub

Però così ovviamente mi scrive tutto in maiuscolo. Per fare il resto come dovrei continuare a scrivere?

Grazie mille a tutti per le risposte

[oregon]

txtFields(2).Text = StrConv(txtFields(2).Text, vbProperCase)

[zorro77]

Grazie mille Oregon