Public Function txt_ReadLine(ByVal sFilename As String, _
  ByVal LineToRead As Long) As String
 
  Dim F As Integer
  Dim sLine As String
  Dim lRow As Long
  Dim strFindAb As String
  Dim strFindBis As String
 
  strFindAb = "Startwort"   ' AB hier (ohne diesem Wort).....
  strFindBis = "Endwort"   'BIS hier (ohne diesem Wort) sollte der String dann 
  ' sein.
 
  lRow = 0
 
  If Dir$(sFilename) <> "" Then
 
    F = FreeFile
    Open sFilename For Input As #F
    sLine = Space$(LOF(F))
    While Not EOF(F) And lRow < LineToRead
      lRow = lRow + 1
      Line Input #F, sLine
    Wend
   Close #F
  End If
 
 txt_ReadLine = sLine
End Function