' Einzulesende Datei
  sFile1 = c:\File1
  ' Neue Datei, die ausgegeben und im weiteren Verlauf verwendet wird
  sFile2 = c:\File2
 
  ' Dateien öffnen
     F1 = FreeFile: Open sFile1 For Input As #F1
     F2 = FreeFile: Open sFile2 For Output As #F2
 
' Löschen sämtlicher Tags
While Not EOF(F1)
  Line Input #F1, sLine
 
  Do
      X = InStr(1, sLine, "<")
       If X = 0 Then
         Exit Do
        Else
            z = InStr(X, sLine, ">")
                If z = 0 Then
                    Exit Do
                Else
                    v = left(sLine, X - 1)
                    h = Mid(sLine, z + 1, Len(sLine) - z + 1)
                    sLine = v & h
                End If
        End If
  Loop
 
   Print #F2, left(sLine, 255)
 
Wend
 
Close #F1
Close #F2