VBA for Access-->GetOpenFileMethod??? (HEEEEEELLLLP!)

[Avatarp]

Access XP:

I am trying to get the file open dialog box to work in this function.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Opens the Open dialog box.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function MSA_GetOpenFileName(msaof As MSA_OPENFILENAME) As Integer
    Dim of As OPENFILENAME
    Dim intRet As Integer

    MSAOF_to_OF msaof, of
    intRet = GetOpenFileName(of)
    intRet = 1
'    intRet = GetFileName(of)
    If intRet Then
        OF_to_MSAOF of, msaof
    End If
    MSA_GetOpenFileName = intRet

End Function

The MSAOF_to_OF function call sets the variable of. These can be found in the screen shot I attached. Please any help would be appreciated.