Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If "a" <= e.KeyChar And e.KeyChar <= "z" Then
e.KeyChar = e.KeyChar.ToString.ToUpper '大文字変換し格納
End If
e.KeyChar = e.KeyChar.ToString.ToUpper '大文字変換し格納
End If
End Sub
---
↑やらなくても、TextBoxの場合、プロパティ CharacterCasingをUpperにすることで実現できる。。