<code>Dim F As Integer
Dim sFilename As String
Dim sLine(5) As String
Dim nCount As Integer
Dim sTemp As String
 
sFilename = "DeineImportDatei.txt"
 
F = FreeFile
Open sFilename For Input As #F
 
nCount = 0
While Not EOF(F)
  <font color=green>' Zeile einlesen</font>
  Line Input #F, sTemp
 
  <font color=green>' Prüfen, ob Leerzeile
  ' wenn nicht gehört die Zeile zum aktuellen Block</font>
  If sTemp <> "" Then
    nCount = nCount + 1
    sLine(nCount) = sTemp
 
    If nCount = 5 Then
      <font color=green>'' Block ist komplett eingelesen</font>
 
      <font color=green>' sLine(1) = Titel
      ' sLine(2) = ...
      ' sLine(3) = ...
      ' sLine(4) = ...
      ' sLine(5) = ...</font>
 
      <font color=green>' Nur Titel importieren</font>
      List1.AddItem sLine(1)
 
      <font color=green>' Block löschen und Zeilenzähler zurücksetzen</font>
      nCount = 0
      ReDim sLine(5)
    End If
  End If
Wend
Close #F</code>