Private Declare Function GetCurrentVbaProject Lib "vba332.dll" _
   Alias "EbGetExecutingProj" _
   (hProject&) As Long
 
Private Declare Function GetFuncID Lib "vba332.dll" _
   Alias "TipGetFunctionId" _
   (ByVal hProject&, _
    ByVal strFunctionName$, _
    ByRef strFunctionId$) As Long
 
Declare Function GetAddr Lib "vba332.dll" _
    Alias "TipGetLpfnOfFunctionId" _
   (ByVal hProject&, _
    ByVal strFunctionId$, _
    ByRef lpfn&) As Long
 
 
Private Function vbaAddrOf(ByVal strFuncName As String) As Long
   Dim hProject As Long, lResult As Long, lpfn As Long
   Dim strID As String, strFuncNameUnicode As String
 
   vbaAddrOf = 0
 
   strFuncNameUnicode = StrConv(strFuncName, vbUnicode)
   Call GetCurrentVbaProject(hProject)
 
   If hProject <> 0 Then
      lResult = GetFuncID(hProject, strFuncNameUnicode, strID)
      If lResult = NO_ERROR Then
         lResult = GetAddr(hProject, strID, lpfn)
         If lResult = NO_ERROR Then vbaAddrOf = lpfn
      End If
   End If
 
End Function