ucase se devi formattare la stringa

per formattare durante l'inserimento

codice:
' in un modulo bas
Function Upper(KeyAscii As Integer)
    If KeyAscii > 96 And KeyAscii < 123 Then
        KeyAscii = KeyAscii - 32
    End If
    Upper = KeyAscii
End Function

' nella text
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Upper(KeyAscii)
End Sub