msoFileDialog File Filter XL2003

[kpark91]

Hello,

Is there any way of adding custom filters in msoFileDialog in XL2003?

I've tried using this but it errors on the red line in XL2003.
It works well in XL2007 tho.

Sub cmdBtn1_Click()
 
    ' Requires reference to Microsoft Office 11.0 Object Library.
    Dim fDialog As Office.FileDialog
    Dim varFile As Variant
 
    ' Set up the File Dialog.
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
 
    With fDialog
        '.InitialFileName = ThisWorkbook.Path
        ' Allow user to make multiple selections in dialog box
        .AllowMultiSelect = False
 
        ' Set the title of the dialog box.
        .Title = "Please select one file"
 
        ' Clear out the current filters, and add our own.
        .Filters.Clear
       .Filters.Add "sdf (*.SDF)", "*.SDF"
       .Filters.Add "All Files (*.*)", "*.*"
    
        ' Show the dialog box. If the .Show method returns True, the
        ' user picked at least one file. If the .Show method returns
        ' False, the user clicked Cancel.
        If .Show = True Then
            UserMenu.txtTestFilePath.Text = .SelectedItems(1)
        End If
    End With
 
    ' Freeing Object Variables
    Set fDialog = Nothing
 
    If Not loadSettingData(UserMenu.txtTestFilePath.Text) Then _
        MsgBox "The file in the Test File Path does not exist" _
        & " or is not a valid file.", vbCritical
 
End Sub

As always, thank you in advance!