Option Explicit
Public WithEvents MonTextbox As MSForms.TextBox
Private Sub MonTextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 32, 39, 45, 65 To 90, 97 To 122, 224, 226, 231 To 235, 238, 239, 244, 249, 251, 252
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub MonTextbox_Change()
MonTextbox.BackColor = &H80000005
MonTextbox.Text = SansAccent(StrConv(MonTextbox.Text, vbUpperCase))
End Sub