In Textchanged Event
Dim s As String
s = Me.TextBox1.Text
s = s.ToUpper
Me.TextBox1.Text = s