Asp classic 我想用VB6将我的一些经典asp自定义函数转换成一个dll文件

这是我的经典asp函数：

Private Function XMLHttpRequest(XmlHttpMode, XmlHttpURL, XmlHttpData)

    Dim MyXmlhttp
    Set MyXmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")                  '
    With MyXmlhttp
        .setTimeouts 6000000, 600000, 600000, 600000                              '

            .Open "GET", XmlHttpURL, True
            .Option(4) = 13056 '
            .Option(6) = True '         

            .SetRequestHeader "Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/78.0.3904.97 Safari/537.36"        

        .send (XmlHttpData)
        .waitForResponse (2000)             

      If MyXmlhttp.Status = 200 Then           
             XMLHttpRequest = .ResponseBody           
        Else
           XMLHttpRequest = "error code:" & .Status            
        End If            

    End With

    Set MyXmlhttp = Nothing
End Function

在iis中运行很好，但我用vb6转换成dll，然后给我一个错误提示：

“对象不支持此属性或方法”

下面是VB6源代码参考库，我想知道我需要什么对象来包含我的vb代码项目（用于生成dll文件，然后我可以调用我的classi asp源代码）。提前谢谢

---

如果您正在使用屏幕截图显示的Microsoft WinHTTP Services，请将变量声明为WinHttpRequest而不是XMLHttpRequest。所有操作都应与XMLHttpRequest对象相同。

这就是我的经典asp代码运行错误的原因？我不知道重命名我的变量，然后发生了什么。