我可以在Excel2010VBA中执行异步XML调用吗？

在我的电子表格中，我引用了MS XML v3库

这是我的示例代码

Option Explicit


Private objConn As XMLHTTP30


Public Sub HandleAsyncEvent()
    Debug.Print "Done"
End Sub

Public Function InitService(serviceUrl As String, Optional asyncMode As Boolean = True)
    Set objConn = New XMLHTTP30
    objConn.Open "POST", serviceUrl, asyncMode
    objConn.setRequestHeader "Content-Type", "text/xml"
    objConn.onreadystatechange = HandleAsyncEvent

End Function

我遇到了一个运行时异常

objConn.onreadystatechange = HandleAsyncEvent

Excel抛出异常“需要对象”

---

实际上是否可以在此处将函数传递到onreadystatechange？我可以在excel vba中传递函数“指针”吗？

以下是处理此类任务的方法：

---

这是一种处理此类任务的方法：@Tim看起来这是对我问题的回答。你可以给我一个答案，这样我就可以投票了。