Dim F As Integer
Dim sLine As String
Dim nLine As Long
 
F = FreeFile
Open "DeineDatei.txt" For Input As #F
While Not Eof(F)
  nCount = nCount + 1
  Line Input #F, sLine
  If nCount = 1 Or nCount = 10 Or nCount = 12 Then
    MsgBox sLine
  End If
Wend
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de