Pricate Const ES_UPPERCASE = &H8
Private Const GWL_STYLE = (-16)
 
Private Declare Function GetWindowLong Lib "user32" Alias _
    "GetWindowLongA" ( _
    Byval hwnd As Long, _
    Byval nIndex As Long) As Long
 
Private Declare Funtion SetWindowLong Lib "user32" Alias _
    "SetWindowLongA" ( _
    Byval hwnd As Long, _
    Byval nIndex As Long, _
    Byval dwNewLong As Long) As Long
 
Private Sub Form_Load()
    'Set Text1-Uppercase
    SetWindowLong Text1.hWnd, _
                  GWL_STYLE, _
                  GetWindowLong(Text1.hWnd, GWL_STYLE) OR _
                  ES_UPPERCASE
End Sub

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