Private Sub Text1_KeyPress(KeyAscii As Integer) If Len(Text1) = 1 Then KeyAscii = Asc(UCase(Chr(KeyAscii))) End If End Sub