Looking for the standard MS FileOpenDialog to search for and find files

[jmcintoshpvdesign827368]

Hi the following bit of code operates in several MS VBA implementations (ACCESS, Excel, Visio) Is there a similar functionality in AutoCad VBA? If so, can you point me to a spot where I can grab it? Thanks.

Dim objDialog As Object
Const msoFileDialogFilePicker As Long = 3
    Set objDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    With objDialog
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "File type", "*.JSON"
        .Title = "Select Design Input File"
        .show
        If .SelectedItems.Count = 0 Then
            Exit Sub
            Else
            sFilePathName = .SelectedItems(1)
            End If
        End With

[Ed Jobe]

You can search this forum for FileDialogs. I also have a bas file here.