Public Function loadfile(ByVal filename As String) As String()
Dim FSO As FileSystemObject
Dim ts As TextStream
Dim str As String
str = ""
Dim foostr() As String
Dim nrlines As Integer
nrlines = 0
 
    'Neues Object anlegen
    Set FSO = CreateObject("Scripting.FileSystemObject")
    'Methode OpenTextFile gibt ein Textstream-Objekt zurück
    Set ts = FSO.OpenTextFile(filename)
 
    'str = ts.ReadAll 'Alles lesen
    str = ts.Line
    While str <> ""  'funtz nicht, wie sonst abbrechen??
    ReDim Preserve foostr(nrlines)
    foostr(nrlines) = str
    nrlines = nrlines + 1
    str = ts.Line
    Wend
    ts.Close 'Datei schliessen
 
End Function