llamar objeto XMLHTTP

[affv]

mi intension es llamar el objeto XMLHTTP pero me dice objeto requerido 424

Código:

Private Sub Command1_Click()
On Error Resume Next
    Set xml = Server.CreateObject("Microsoft.XMLHTTP")
        If Err Then
            MsgBox "CreateObject Error: " & Err.Number & vbCrLf & _
            Err.Description
            Exit Sub
        End If

        xml.Open "POST", "http://localhost/ver.asp", False
        xml.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        xml.Send ("Variable=121111")
        Text1.Text = xml.responseText
    Set xml = Nothing
End Sub

no entiendo como debo hacerlo uso vb6