FileCopy App.Path + "html.dat", CommonDialog1.Filename
Open CommonDialog1.Filename For Append As #1 'Im Append Modus wird alles 
' automatisch hinten dran gehängt
    Print #1, "-*GN*-" & Form1.rtf1.Text '"-*GN*-" ist eine Zeichenkette damit _
      wird die Daten später bei öffnen auch wieder finden
    Close #1
    Unload Form16
    End If

Private Sub Form_Load()
 
 Dim fileData As String 'Hier wird die Datei zwischengespeichert
    Dim DataPos As Long 'Position wann unser Text anfängt
 
 
    On Error Resume Next
    Open App.EXEName + ".exe" For Binary As #1 'Binär öffnen, damit auch 
    ' Dateien >64KB geöfnet werden können (Normalerweise würde es sonst einen 
    ' Fehler geben)
    If Err <> 0 Then MsgBox "Fatal error"
    fileData = String(LOF(1), " ") 'Datenstring auf die Größe der Datei bringen
    Get #1, 1, fileData
    Close #1
 
    DataPos = InStr(1, fileData, "-*GN*-") 'Nach unserer String-Marke suchen
    If DataPos < 1 Then MsgBox "Diese Datei enthält keine HTML Signaturen": End
   s = txtText.Find("¦¦|*SET_SAVEASHTML=NO*|¦¦")
   If s >= 0 Then Form1.saveashtml = False
 
    txtText.Text = Mid(fileData, DataPos + 6, Len(fileData) - DataPos - 7) _
      'Text anzeigen
      txtText.Text = Replace(txtText.Text, "¦¦|*SET_SAVEASHTML=NO*|¦¦", "")
 
 
 
    Open "C:HTML.html" For Output As #1
    txtText.Text = txtText.Text & "                                            " & _
      "                                                                        " & _
      "                                                                        " & _
      "                                                                        " & _
      "                                                                        " & _
      "                                                                        " & _
      "                                                                        " & _
      "                             "
    Print #1, txtText.Text
 
 WebBrowser1.Navigate ("C:HTML.html")
    Close #1
    'Kill "C:HTML.html"
    t = Len(txtText.Text) * 1024
End Sub