==============================================
Force upper case on key in a control:   p420

Sub Text1_KeyPress (KeyAscii as Integer)
    KeyAscii = Asc ( UCASE ( Chr (KeyAscii)))
End Sub