Private Sub Command1_Click()
 
 On Error Resume Next
 
  If Text1.Text <> "" Then
  Open App.Path & "\date\" & Text1.Text For Output As #1
  Print #1, RTB1.Text;
  Close #1
  File1.Refresh
  MsgBox "Die Datei  """ + Text1.Text + """  wurde erfolgreich gespeichert !"
  Else
  MsgBox "Geben Sie einen Scriptnamen ein!", vbInformation, "Scriptname nicht" & _
    "gefunden!"
  End If
  Dir1_Change
End Sub