Public Function Decimal2Binary(ByVal Dec As Integer) As String
        Return Convert.ToString(Dec, 2)
    End Function
 
    Public Function Decimal2Hex(ByVal Dec As Integer) As String
        Return Dec.ToString("X")
    End Function
 
    Public Function Binary2Decimal(ByVal Bin As String) As Integer
        Dim l As Integer
        For i As Integer = 0 To Bin.Length - 1
            l = (l << 1) + Integer.Parse(Bin.Substring(i, 1))
        Next
        Return l
    End Function
 
    ' // Anwendung der Methoden
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        MessageBox.Show("Bin2Dec: " + Me.Binary2Decimal("1111").ToString)
        MessageBox.Show("Dec2Bin: " + Me.Decimal2Binary(15).ToString)
        MessageBox.Show("Dec2Hex: " + Me.Decimal2Hex(15).ToString)
    End Sub