关于xmlhttp异步方式回调的问题

Question

现在用xmlhttp异步方式，可以指定一个回调，程序如下：Dim xmlhttp AS MSXML.XMLHTTPRequest
Dim MyOnReadyStateWrapper As MyReadyStateHandler
Set MyOnReadyStateWrapper = New MyReadyStateHandler
Set xmlhttp = New MSXML.XMLHTTPRequest
xmlStr = GetXmlDom  '获得数据
xmlhttp.Open "POST", strWebUrl, True
xmlhttp.OnReadyStateChange = MyOnReadyStateWrapper
xmlhttp.send xmlStr   '发送数据建一个Class Module，名为MyReadyStateHandler，然后在里面写一个默认的Sub来作为回调处理现在的问题是如何在这个回调里传递参数？(比如我要把这个xmlhttp对象实例的Ref传到回调函数里使用)