Option Explicit
 
Private Sub Command1_Click()
    Dim s As String
    Dim sResult As String
    Dim ch As Long
    Dim i As Long
    Dim r As Long
 
    s = "1A,"
 
    For i = 1 To Len(s)
        ch = Asc(Mid(s, i, 1))
        sResult = vbNullString
        Do While ch > 0
            r = ch Mod 2
            sResult = CStr(r) + sResult
            ch = Int(ch / 2)
        Loop
        sResult = String(8 - Len(sResult), "0") + sResult
        Debug.Print sResult
    Next i
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1