Simple but handy short code to Convert lowercase letters to UPPERCASE letters if needed in text box.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Call ConvUpcase(KeyAscii)
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
Call ConvUpcase(KeyAscii)
End Sub

Private Sub ConvUpcase(keyvalue As Integer)
If keyvalue >= 97 And keyvalue <= 122 Then
 keyvalue = keyvalue - 32
End If
End Sub