Dim dynarraydaten(1 To 96, 1 To 7) As String
Dim w As Integer
Dim y As Integer
Dim z As Integer
Dim A As Byte
 
    OPENCOM "COM1:9600,N,8,1"
    SENDBYTE 27                 'Befehl Unterbrechung senden
    SENDBYTE 5                  'Befehl Datenübertragung Daten senden
 
    For w = 1 To 96         'Datensätze 1-96
 
    For y = 1 To 7           'Datenfelder 1-7
    dynarraydaten(w, y) = ""    'Array löschen
    For z = 1 To 12             'Schleife für 12 Bytes starten
                A = CByte(READBYTE)            'gelesenes Byte in Variable A 
                ' speichern
        If A < "0" Then A = "0"
        bufferarray(z) = Chr(A) 'Aus Variable A eine Stringvariable machen
        dynarraydaten(w, y) = dynarraydaten(w, y) + bufferarray(z) _
          'Stringvariablen aus Puffer zu einer zusammensetzen
 
        Next z
    Next y
    Next w
CLOSECOM