UpperCase

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Upper(KeyAscii)
End Sub

Function Upper(KeyAscii As Integer)
If KeyAscii > 96 And KeyAscii < 123 Then
KeyAscii = KeyAscii - 32
End If
Upper = KeyAscii
End Function

'This technique eliminates the need to "UCase" entered data.

'It also makes "hotseek" data searches much easier. Se volete convertire in Maiuscolo il testo inserito in una

TextBox potete creare una Funzione UPPER e chiamarla nell'evento
keypress della TextBox.
Ecco come fare