Dim nLine As Long
 
Open DateiPfad For Input As #1
Do Until Eof(1) 
  nLine = nLIne + 1
  Input #1, commentText
  If nLine = 20 Then
    hole_comment = Mid$(commentText, 75, 300)
  ElseIf nLine = 21 Then
    ...
  Else ...
  End If
Loop
Close #1

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de