Save File error

[ultimateshadowx9]

im using vb6.0 for mmore info,
ve got a problem in app, when you go to save a file, you have the option of the standerd SPR fomat which is the defualt for my app or you can have as an txt, doc or all files, but when i just put txt how i think it might be, it allows it, but then when i go into my docs (cos i have some notepad docs) i doesnt show them,
heres the code ive got, tell me what i need to do for the txt format to be added:

Private Sub mnuFileSaveAs_Click()
    Dim sFile As String
    
 
    If ActiveForm Is Nothing Then Exit Sub
    
 
    With dlgCommonDialog
        .DialogTitle = "Save As"
        .CancelError = False
        'ToDo: set the flags and attributes of the common dialog control
        .Filter = "SP Runtime Docs (*.spr)|*.spr"
        .ShowSave
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
    End With
    ActiveForm.Caption = sFile
    ActiveForm.rtfText.SaveFile sFile
 
End Sub

[si_the_geek]

Welcome to VBForums

You just need to change the Filter property, eg:

.Filter = "SP Runtime Docs (*.spr)|*.spr|Text files (*.txt)|*.txt"