Compile error in hidden module

[tiredofit]

My client has the following error on their PC:

Compile error in hidden module: ModURL.

This error commonly occurs when code  is incompatible with the version, platform , or architecture of this application.

This is ModURL:

Option Explicit

    Public Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, ByVal dwReserved As Long) As Boolean

Function URL() As Boolean

    Dim WebStat As Long

    URL = (InternetGetConnectedState(WebStat, 0&) <> 0)
    
End Function

Could the error be due to the API? The code work son my 32 bit Excel so I assume the client has a 64 bit version? If so, how can I convert the API to make it work on both 32 bit and 64 bit Excel?

Thanks

 

[RoryA]

You need conditional compilation:

#If VBA7 then
Public Declare PtrSafe Function InternetGetConnectedState _
        Lib "wininet.dll" (lpdwFlags As LongPtr, _
        ByVal dwReserved As long) As Boolean
#Else
Public Declare Function InternetGetConnectedState _
        Lib "wininet.dll" (lpdwFlags As Long, _
        ByVal dwReserved As Long) As Boolean
#End If

Function URL() As Boolean
#If VBA7 then
    Dim WebStat As LongPtr
#Else
    Dim WebStat As Long
#End If

    URL = (InternetGetConnectedState(WebStat, 0&) <> 0)
    
End Function

 

[tiredofit]

You need conditional compilation:

#If VBA7 then
Public Declare PtrSafe Function InternetGetConnectedState _
        Lib "wininet.dll" (lpdwFlags As LongPtr, _
        ByVal dwReserved As long) As Boolean
#Else
Public Declare Function InternetGetConnectedState _
        Lib "wininet.dll" (lpdwFlags As Long, _
        ByVal dwReserved As Long) As Boolean
#End If

Function URL() As Boolean
#If VBA7 then
    Dim WebStat As LongPtr
#Else
    Dim WebStat As Long
#End If

    URL = (InternetGetConnectedState(WebStat, 0&) <> 0)
   
End Function

Thanks, I'll add that in.