Dim fs 
Dim xpath
Dim xreffile
Dim xnamereffile
Dim xline
Dim xarrayline
Dim xseperator
 
Set fs = CreateObject("Scripting.FileSystemObject")
 
If fs.FileExists((xpath & "\" & xnamereffile)) = True Then
 
' Auslesen der Referenz
Set xreffile = fs.GetFile((xpath & "\" & xnamereffile))
 
' File wird ausgelesen
Set xreffile = fs.OpenTextFile((xpath & "\" & xnamereffile), 1)
xline = xreffile.Readline
xreffile.Close
 
' Array zur Verarbeitung wird erstellt
xarrayline = Split(xline, xseperator)
 
End IF