Allow Only UpperCase Letters In TextBox

'Add 1 TextBox To Your Form.
'Insert the following code to your form:

Private Sub Text1_Change()
old = Text1.SelStart
Text1.Text = UCase(Text1.Text)
Text1.SelStart = old
End Sub