ciao a tutti ........
Data una textbox con la funzione Ucase posso fare in modo che una lettera di una textbox (l'iniziale nel mio caso specifico)passi da minuscolo a minuscolo

Public Function maiuscole(ByRef t1 As String)
Dim iniziale As String
Dim stringaTemp As String

iniziale = Mid(t1, 1, 1) 'ricavo la lettera iniziale
stringaTemp = Mid(t1, 2, Len(t1)) t1 = UCase(iniziale) & stringaTemp
Return t1
End Function

Se volessi fare in modo che tutte le lettere di una textbox diventino maiuscole mano a mano che vengono scritte?
esiste una funzione o altro per farlo in automatico?