<code>Dim F As Integer
Dim strLine As String
Dim arrFeld() As String
 
F = FreeFile
Open "DeineTextdatei.txt" For Input As #F
While Not Eof(F)
  <font color=green>' Zeile lesen und in die einzelnen Felder zerlegen</font>
  Line Input #F, strLine
  arrFeld = Split(strLine, "#")
 
  <font color=green>' Hier muss Deine Prüfung erfolgen, ob der
  ' Datensatz schon vorhanden ist</font>
  ...
 
  <font color=green>' Update oder Hinzufügen?</font>
  ...
Wend
Close #F</code>