OnlyUcaseText

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

'Con questa tecnica si elimina l'utilizzo del comando Ucase.