Zitat:

Diese Methode ist zwar etwas länger aber dafür sehr übersichtlich und anpassbar.

Private TextEingabe As String
 
Private Sub Command1_Click()
Dim i As Long
Dim u As Long
Dim Buchstabe As Byte
Dim BinärText As String
Dim Stelle As Byte
For i = 1 To Len(TextEingabe)
    Buchstabe = Asc(Mid$(TextEingabe, i, 1))
    Stelle = 128
    For u = 1 To 8
        If Buchstabe >= Stelle Then
            BinärText = BinärText & "1"
            Buchstabe = Buchstabe - Stelle
        Else
            BinärText = BinärText & "0"
        End If
        Stelle = Stelle / 2
    Next
    BinärText = BinärText & "|"
Next
MsgBox BinärText
End Sub