<code>Dim strFilename As String
Dim strLine As String
Dim lngCount As Long
Dim F As Integer
 
strFilename = "DeineTextdatei.txt"
 
F = FreeFile
Open strFilename For Input As #F
 
lngCount = 0
While Not Eof(F)
  lngCount = lngCount + 1
  Line Input #F, strLine
 
  Select Case lngCount
    Case 6
      <font color=green>' und ab in Tabelle X</font>
      ...
    Case 8
      <font color=green>' und ab in Tabelle Y</font>
      ...
    Case 10
      <font color=green>' und ab in Tabelle Z</font>
      ....
    Case Else
      <font color=green>' und ab in Tabelle Messwerte</font>
      ...
  End Select
Wend
Close #F</code>