<code>Dim F As Integer
Dim sFilename As String
Dim sInhalt As String
Dim sLine As String
 
<font color=green>' Textdatei zeilenweise einlesen</font>
sFilename = "DeineTextdatei.txt"
F = FreeFile
Open sFilename For Input As #F
 
sInhalt = ""
While Not Eof(F)
  Line Input #F, sLine
  If Mid$(sLine, 2, 1) = ";" And sInhalt <> "" Then
    sInhalt = sInhalt & vbCrLf
  End If
  sInhalt = sInhalt & sLine
Wend
Close #F
 
<font color=green>' Inhalt wieder speichern
<b' Achtung: Originaldatei wird überschrieben!</font>
F = FreeFile
Open sFilename For Output As #F
Print #F, sInhalt;
Close #F</code>