Private Sub open_Click()
Dim ffilter As String
Dim TXT As String
Open App.Path + "datafilter.ntd" For Input As 1
Input #1, ffilter
Close #1
CommonDialog1.Filter = ffilter
CommonDialog1.CancelError = False
dateiname$ = App.Path + "TCEdit.ini"
s = GetINIString(dateiname$, "common dialog", "cd_initdir")
CommonDialog1.InitDir = s
CommonDialog1.ShowOpen
If CommonDialog1.Filename = "" Then Exit Sub
rtf1.Text = ""
Me.Caption = "Thundercloud Webeditor (" + Chr(34) + CommonDialog1.Filename + _
  Chr(34) + ")"
Open CommonDialog1.Filename For Input As #3
Input #3, TXT
rtf1.Text = rtf1.Text + TXT
While Not EOF(3)
Input #3, TXT
rtf1.Text = rtf1.Text + vbCrLf + TXT
Wend
Close #3
highall
List1.Visible = False
quit.List1.AddItem (CommonDialog1.Filename)
mkbak (rtf1.Text)
End Sub