usando el método ToUpper de la clase String.
Código vb.net:
Ver originalMe.txtdescri1.Text = Me.txtdescri1.Text.ToUpper
o bien:
Código vb.net:
Ver originalDim cadena As String
cadena = Me.txtdescri1.Text
Me.txtdescri1.Text = cadena.ToUpper
El Vb.net es mucho más simple en muchas cosas