vb6发送带cookie的get请求

Private Function HttpGet(ByVal URL As String, ByVal Cookie As String) As String
    Dim HTTP As Object
    
    Set HTTP = CreateObject("Msxml2.ServerXMLHTTP.6.0")
    HTTP.open "GET", URL, False
    HTTP.SetRequestHeader "Cookie", Cookie
    
    HTTP.send
    
    HttpGet = HTTP.responseText
    
    'Debug.Print HttpGet
End Function