Private Sub Command3_Click()
CommonDialog1.CancelError = True
On Error GoTo errhandler
With CommonDialog1
.Filter = "Textdateien (*.txt)|*.txt|ISO Dateien (*.ISO)|*.ISO|NC Dateien (" & _
  "*.NC)|*.NC|CMD Dateien (*.CMD)|*.cmd|Alle Dateien|*.*"
.ShowSave
RichTextBox1.Text = TextRead(.Filename)
End With
errhandler:
End Sub