Public Function ReadLine(ByVal sFile As String, _
  ByVal nLine As Long) As String
 
  Dim sLines() As String
  Dim oFSO As Object
  Dim oFile As Object
 
  ' Verweis auf das FileSystemObject erstellen
  oFSO = CreateObject("Scripting.FileSystemObject")
 
  ' Existiert die Datei überhaupt?
  If oFSO.FileExists(sFile) Then
 
    ' Datei öffnen
    oFile = oFSO.OpenTextFile(sFile)
 
    ' Alles lesen und in Array zerlegen
    sLines = Split(oFile.ReadAll, vbCrLf)
 
    ' Datei schließen
    oFile.Close()
 
    Return sLines(nLine - 1)
  Else
    Return ""
  End If
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de