' Function Decimal - > Binär
Private Function Dec2Bin(Byval nVal As Long) As String
    Dim sErg As String
    Dim i As Byte
    Dim n As Long
 
    n = nVal
 
    For i=31 To 0 Step -1
        If (n-2^i) => 0 Then
              sErg = sErg + "1"
              n = n - 2^i
        Else
              sErg = sErg + "0"
        End If
    Next
   Dec2Bin = sErg
 
End Function
 
' Function Binär -> Decimal
Private Function Bin2Dec(ByVal sBin As String) As Long
     Dim i As Byte
     Dim c As String
     Dim nErg As Long
 
     If Len(sBin) > 32 Then Exit Function
     For i = 1 To Len(sBin)
          c = Mid(sBin, Len(sBin) - (i - 1), 1)
          nErg = nErg + Val(c) * 2 ^ (i - 1)
     Next
 
     Bin2Dec = nErg
End Function