Why you want to force the user for Uppercase letter ?, you can make the user to enjoy what letter do they want to use, but you can trap it by using UCASE(text) function to change all text in the textbox into the uppercase.

eg.

Text1.Text= "hello world"
msgbox UCASE(Text1.text) ' it will "HELLO WORLD"