関数ポインタ実行すんねん(・∀・)

Module1.bas

Option Explicit

Private Declare PtrSafe _
Function SE_GetProcAddressIgnoreIncExc Lib "apphelp.dll" ( _
    ByRef arg1 As Long, _
    ByVal arg2 As LongPtr, _
    ByRef arg3 As String _
) As Long

Private Declare PtrSafe _
Function SE_GetProcAddressForCaller Lib "apphelp.dll" ( _
    ByVal arg1 As LongPtr, _
    ByVal arg2 As LongPtr, _
    ByVal arg3 As LongPtr, _
    ByVal arg4 As LongPtr, _
    ByVal arg5 As LongPtr _
) As LongPtr

Private Declare PtrSafe Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As LongPtr

Sub hoge()

    Dim hDll As LongPtr
	'hDll = GetModuleHandle("user32.dll")
	'Debug.Print hDll

    Dim ptr As LongPtr
    ptr = VBA.CLngPtr(AddressOf func)
    Dim ret As LongPtr
    ret = SE_GetProcAddressForCaller(ptr, 0, 0, 0, 0)
    Debug.Print Hex$(ret), Hex$(ptr)

End Sub

Sub func()
    MsgBox ""
End Sub