'Hallo...
'Hier ein kleines Beispiel zum Umwandeln von Integerwerten in Binär Werte.
Private Function ConvertDecimalToBinary(ByVal ConvertValue As Integer) As String
    Dim nDecimal    As Integer
    Dim BitCount    As Integer
    Dim n           As Integer
    Dim nTmp        As Integer
    Dim Result      As String
 
    Result = Trim(CStr(ConvertValue Mod 2))
    n = ConvertValue \ 2
    Do While n <> 0
        Result = Trim(CStr(n Mod 2)) & Result
        n = n \ 2
    Loop
    Do While Len(Result) < 8
        Result = "0" & Result
    Loop
    ConvertDecimalToBinary = Result
    Exit Function
    nDecimal = ConvertValue
    BitCount = 128
    Result = ""
    For n = 0 To 7
        nTmp = Int(nDecimal / BitCount)
        If nTmp > 0 Then
             Result = Result & "1"
             nDecimal = nDecimal - BitCount
        Else
             Result = Result & "0"
        End If
        BitCount = Int(BitCount / 2)
    Next
    ConvertDecimalToBinary = Result
End Function
 
Private Sub Command3_Click()
    Debug.Print ConvertDecimalToBinary(1000)
    Debug.Print ConvertDecimalToBinary(12345)
    Debug.Print ConvertDecimalToBinary(32767)
End Sub
'MfG
'Frank