The Open/Save Routine in an RTF Box

I want to know how to associate the open command with multiple file extensions.

Just look at my code:

Code:

---

Private Sub mnuFileOpen_Click()
    Dim sFile As String


    If ActiveForm Is Nothing Then LoadNewDoc
   

    With dlgCommonDialog
        .DialogTitle = "Open"
        .CancelError = False
        'ToDo: set the flags and attributes of the common dialog control
        .Filter = "All Files (*.*)|*.*|HTML Files (*.html,*.htm,*.shtml,*.asp)|*.html,*.htm,*.shtml,*.asp|"
        .ShowOpen
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
    End With
    ActiveForm.rtfText.LoadFile sFile
    ActiveForm.Caption = sFile

End Sub

---

As you can see, I tried separating the different file extensions with a comma, but it worn't work. Does anyone know how to do this properly? All help would be greatly appreciated!

------------------
Webmaster Czaries
http://www1.50megs.com/css