code :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim hexstring As String
Dim decvalue As Integer
hexstring = TextBox1.Text.Trim
decvalue = CInt("&H" & hexstring)
MsgBox("your value is " & decvalue)
End Sub
End Class