Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim i_dec As Long = 255
        Dim i_hex = Microsoft.VisualBasic.Hex(i_dec)
        i_dec = Me.Hex2Dec(i_hex)
    End Sub
 
    Function Hex2Dec(ByVal Hex As String) As Long
        Return Convert.ToInt64(Hex, 16)
    End Function