"All Caps" in a text box

[ChrisJackson]

Option 2:

Private Sub Text1_Change()
    Text1 = UCase(Text1)
    Text1.SelStart = Len(Text1)
End Sub

All the best.

Chris