' Function Decimal - > Binär
Private Function Dec2Bin(ByVal nVal As Long) As String
  Dim sErg As String
  Dim i As Long
  Dim n As Long
  Dim u As Long
 
  n = nVal: u = 0
  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
 
    ' immer 4-Gruppen bilden, dann 1 Leerzeichen
    u = u + 1
    If u = 4 Then sErg = sErg + " ": u = 0
  Next
  Dec2Bin = Trim$(sErg)
End Function

' Function Decimal - > Binär
Private Function Dec2Bin(ByVal nVal As Long) As String
  Dim sErg As String
  Dim i As Long
  Dim n As Long
  Dim u As Long
 
  n = nVal: u = 0
  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
 
    ' immer 4-Gruppen bilden, dann 1 Leerzeichen
    If Not(i Mod 4) Then sErg = sErg + " "
  Next
  Dec2Bin = Trim$(sErg)
End Function