Function Dial()
  Dim loComm As cDialog
  Dim strFilter As String
  Set loComm = New cDialog
  strFilter =  "Access Databases (*.md?)|*.md?|All Files(*.*)|*.*" 
  With loComm
    .Filter = strFilter
    .Title =  "Open File" 
    .ModeOpen = True
    .Action
    MsgBox .FileName
  End With
End Function

Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog( _
    FileDialogType:=msoFileDialogOpen)

With dlgOpen
    .AllowMultiSelect = True
    .Show
End With

Function Select_File(Field As String)
Dim fd As FileDialog
Dim s
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant

    With fd
        If .Show = - 1  Then
            For Each vrtSelectedItem In .SelectedItems
                s = vrtSelectedItem
                msgbox s
            Next vrtSelectedItem
        End If
    End With
    Set fd = Nothing
End Function