Suche Möglichkeit einer schnellen Konvertierung eines String´s in einen Byte-Array

[peterfido]

Mein ungetesteter Ansatz:

$baud = 9600

Dim Pos As Byte
Dim Led(126) As Byte
Dim B As Byte


Do
   If Ischarwaiting() = 1 Then
      B = Inkey()
      If B >= 48 Then
         Incr Pos
         Led(pos) = B And &B00000001                        'Nur 0 und 1  erlaubt
      Else                                                  'chr13 oder chr10,...
         Pos = 0
      End If
      If Pos >= 126 Then Pos = 0                            'Überlauf verhindern
   End If


Loop
End