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
 
Private Declare Function GetAddr Lib "vba332.dll" _
     Alias "TipGetLpfnOfFunctionId" _
     (ByVal hProject&, _
      ByVal strFunctionId$, ByRef lpfn&) As Long
 
Sub testit()
   MsgBox AddrOf("Test")
End Sub
 
Public Function AddrOf(strFuncName$) As Long
    Dim hProject&, lResult&, lpfn&
    Dim strID$, strFuncNameUnicode
    Const NO_ERROR = 0
    AddrOf = 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: AddrOf = lpfn
       End If
    End If
End Function
 
Public Function Test()
 
End Function