Dim FNum As Short
        Dim Anzahl As Short
        'Dim Tabelle As String
        Dim Tabelle(Anzahl) As Integer
        Dim StrLen As Byte
        Dim XorStr As String
        Dim I, J, XorValue As Short
        Dim Offs As Short
        Dim Cnt As Short
        FNum = FreeFile()
        FileOpen(FNum, "D:\daten.dat", OpenMode.Binary)
        FileGet(FNum, Anzahl)
        Tabelle = New Integer(Anzahl) {}
        For I = 1 To Anzahl
            FileGet(FNum, Tabelle(I))
        Next I
        'Tabelle = Space(Anzahl * 2) 'Oder *4, je nach Pointer-Länge!
        'FileGet(FNum, Tabelle)
 
        While Not EOF(FNum)
            Seek(FNum, CLng(Tabelle(1)))
            For I = 1 To 6
                XorValue = &HFFS
                FileGet(FNum, StrLen) 'Länge des folgenden Strings einlesen
                XorStr = Space(StrLen)
                FileGet(FNum, XorStr)
                For J = 1 To StrLen
                    Mid(XorStr, J, 1) = Chr(Asc(Mid(XorStr, J, 1)) Xor XorValue)
                    XorValue = XorValue - 1
                Next
                If I = 1 Then
                    TextBox5.Text = XorStr
                ElseIf I = 2 Then
                    TextBox2.Text = XorStr
                ElseIf I = 3 Then
                    TextBox1.Text = XorStr
                ElseIf I = 4 Then
                    TextBox4.Text = XorStr
                ElseIf I = 5 Then
                    TextBox3.Text = XorStr
                Else
                    ComboBox1.SelectedItem = XorStr
                End If
            Next
        End While
        'Xor-String einlesen
 
        'TextBox5.Text = XorStr
        Label8.Text = Anzahl
        'Debug.Print(XorStr)
        'End While
        FileClose(FNum)