The name of the module is Class1.  So I replaced BrowseForFileClass in my
code with Class1 and now it's working!  YAY!

Now about that issue about not retrieving a file name, just the path ...  
Looks like I'll need to change the code for the GetFileSpec function and the
DialogTitle property.  Right now, the DialogTitle is "Select File" and I'd
like it to be "Select Directory".  Here's the code for DialogTitle:

Public Property Let DialogTitle(strTitle As String)
               'store the title for the dialog box
   strDialogTitle = strTitle
End Property

I tried adding this code in DialogTitle but it didn't work:

strTitle = "Get Directory"

Here's the code for GetFileSpec:

Public Function GetFileSpec()
   Dim of As OPENFILENAME
   Dim intRet As Integer
                   
                   'set up the file filter and the default type option
   If strNewTypes <> "" Then
       of.lpstrFilter = strNewTypes & strFilter
       of.nFilterIndex = 1
   Else
       of.lpstrFilter = strFilter
       If intDefaultType <> 0 Then
           of.nFilterIndex = intDefaultType
       Else
           of.nFilterIndex = 1
       End If
   End If
                   'define some other dialog options
   of.lpstrTitle = strDialogTitle
   of.lpstrInitialDir = strInitialDir
   of.lpstrFile = strInitialFile & String(512 - Len(strInitialFile), 0)
   of.nMaxFile = 511

                   ' Initialize other parts of the structure
   of.hwndOwner = Application.hWndAccessApp
   of.hInstance = 0
   of.lpstrCustomFilter = 0
   of.nMaxCustrFilter = 0
   of.lpfnHook = 0
   of.lpTemplateName = 0
   of.lCustrData = 0
   of.lpstrFileTitle = String(512, 0)
   of.nMaxFileTitle = 511
   of.lpstrDefExt = vbNullChar
   of.Flags = 0
   of.lStructSize = Len(of)

                   'call the Open dialog routine
   intRet = GetOpenFileName(of)
   If intRet Then
       GetFileSpec = Left(of.lpstrFile, InStr(of.lpstrFile, vbNullChar) - 1)
   Else
       GetFileSpec = ""
   End If

End Function    'End of GetFileSpec

This will be the harder part.  GetFileSpec calls GetOpenFileName so here's
the code for that:

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
   "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Boolean

Private strDialogTitle As String
Private intDefaultType As Integer
Private strNewTypes As String
Private strInitialFile As String
Private strInitialDir As String
Private strFilter As String
Private strFltrLst As String
Private strFltrCnt As String

There's no End Function for GetOpenFileName.  Is that because we're just
declaring it?  Here's the code for the OPENFILENAME type:

Private Type OPENFILENAME
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   lpstrFilter As String
   lpstrCustomFilter As Long
   nMaxCustrFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrTitle As String
   Flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustrData As Long
   lpfnHook As Long
   lpTemplateName As Long
End Type

Thanks again for your help!