' Bestimmte Zeile aus einer Textdatei lesen
Public Function ReadLine(ByVal sFile As String, _
  Optional ByVal nLine As Long = 1) As String
 
  Dim sLines() As String
  Dim oFSO As Object
  Dim oFile As Object
 
  ' Fehlerbehandlung aktivieren
  On Error GoTo ErrHandler
 
  ' Verweis auf das FileSystemObject erstellen
  Set oFSO = CreateObject("Scripting.FileSystemObject")
 
  ' Existiert die Datei überhaupt?
  If oFSO.FileExists(sFile) Then
    ' Datei öffnen
    Set oFile = oFSO.OpenTextFile(sFile)
 
    ' Alles lesen und in Array zerlegen
    sLines = Split_String(oFile.ReadAll, vbCrLf)
 
    ' Datei schließen
    oFile.Close
 
    Select Case Sgn(nLine)
       ' (nLine > 0)
      Case 1
        ' n-te Zeile von vorne beginnend
        ReadLine = sLines(nLine - 1)
 
      ' (nLine < 0)
      Case -1
        ' n-te Zeile von hinten beginnend
        ReadLine = sLines(UBound(sLines) + nLine + 1)
    End Select
  End If
 
ErrHandler:
  ' Objekte zerstören
  Set oFile = Nothing
  Set oFSO = Nothing
End Function

' Zerlegt ein String anhand eines angegebenen
' Trennzeichens und gibt die einzelne Teilstrings
' als nullbasierendes Array zurück
'
' Wird kein Trennzeichen angegeben, wird als
' Trennzeichen das Leerzeichen angenommen
Public Function Split_String(ByVal inp_str As String, _
  Optional sep As Variant)
 
  Dim i As Integer
  Dim j As Integer
  Dim ret() As Variant
 
  ' kein Trennzeiche?
  If IsMissing(sep) Then sep = " "
 
  i = 1: j = 0
  ReDim Preserve ret(j)
 
  Do While Mid(inp_str, i, 1) = sep
    i = i + 1
  Loop
 
  Do
    If Not Mid(inp_str, i, 1) = sep Then
      ret(j) = ret(j) & Mid(inp_str, i, 1)
      i = i + 1
    Else
      Do
        i = i + 1
      Loop While Mid(inp_str, i, 1) = sep
      If i > Len(inp_str) Then Exit Do
      j = j + 1
      ReDim Preserve ret(j)
    End If
  Loop While i <= Len(inp_str)
 
  Split_String = ret
End Function