Dim fso As New FileSystemObject...

Code:
Rem Save
Public Sub Save()
    Dim fso As New FileSystemObject, ts As TextStream, newStr As String
    With frmMain
        .SaveDialog.Filter = "Text Files (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf"
        On Error GoTo cancelSave
        .SaveDialog.ShowSave
        .SaveDialog.FilterIndex = 1
            If Right$(.SaveDialog.FileName, Len(.SaveDialog.FileName) - (Len(.SaveDialog.FileName) - 4)) = ".rtf" Then
                newStr = .rtfNew.TextRTF
                Call .rtfNew.LoadFile(.OpenDialog.FileName, rtfRTF)
                .rtfNew.TextRTF = newStr
                Call .rtfNew.SaveFile(.SaveDialog.FileName)
            ElseIf Right$(.SaveDialog.FileName, Len(.SaveDialog.FileName) - (Len(.SaveDialog.FileName) - 4)) = ".txt" Then
                Set ts = fso.CreateTextFile(.SaveDialog.FileName, True)
                ts.Write (.rtfNew.Text)
                ts.Close
            End If
    End With
cancelSave:
End Sub

Code:
.SaveDialog.Filter = "Text Files (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf"

Code:

Private Sub cmdOpen_Click()
On Error GoTo errhandler
    CommonDialog1.CancelError = True
    ' Set flags
    CommonDialog1.Flags = cdlOFNHideReadOnly + cdlOFNPathMustExist + cdlOFNFileMustExist
    ' Set filters
    CommonDialog1.Filter = "All Files (*.*)|*.*|RTF (*.rtf)|*.rtf|Text Files (*.txt)|*.txt"
    
    ' Display the Save dialog box
    CommonDialog1.Filename = ""
    CommonDialog1.ShowOpen
    txtData.Text = "File Selected: " & CommonDialog1.Filename
    Exit Sub
errhandler:
    Select Case Err
    Case 32755 '  Dialog Cancelled
        MsgBox "you cancelled the dialog box"
    Case Else
        MsgBox "Unexpected error. Err " & Err & " : " & Error
    End Select
End Sub