Private Function IntegerToHex(ByVal value As Integer) As String
        Return value.ToString("X")
    End Function
 
    Public Function HexToInteger(ByVal value As String) As Integer
        Return Integer.Parse(value, Globalization.NumberStyles.HexNumber)
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim originalValue As Integer = -80000
        Dim convertedToHex As String = IntegerToHex(originalValue)
        Dim convertedToInteger As Integer = HexToInteger(convertedToHex)
 
        Me.Text = String.Format("Originalwert: {0}, HEX-Wert: {1}, Integerwert:" & _
          "{2}", originalValue, convertedToHex, convertedToInteger)
    End Sub