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.

[Avatarp]

This code works on some computers but not others with the same Office Suite???? I'm testing this code at the same time on my laptop and my desktop. Laptop works...desktop doesn't. I have carefully checked my references and they match up. Is the only other possiblility a system problem?

What else could be going on?

[Avatarp]

Does the lack of response mean that nobody knows? Should I ask the gods?


Avatarp:
God, what is going on with this code? Is it software or hardware? Is it bad coding? It can't be bad coding. It must be related to Access.

God:
It is Microsofts fault son.