Sub Auslesen()

    Dim Ordnername As String
    Dim a As String                 ' Dateiname der zu öffnenden Datei
    Dim sLine As String
    Dim zeilen(1 To 257) As String
    Dim Zeile As Double			' reicht für kurze Dateien, sonst Integer
    Dim Fnr As Long

    Zeile = 0
    Fnr = FreeFile
    Open (Ordnername + "\" + a) For Input As Fnr
        While Not EOF(Fnr)
            Zeile = Zeile + 1
            Line Input #Fnr, sLine
            zeilen(Zeile) = sLine           'MsgBox ("Zeile " + Str(Zeile) + " :" + sLine)
        Wend
    Close Fnr


end