HTTP - Service Request

Dim SoapRequest As String 
Dim Server As String 
Dim Request As New MSXML2.XMLHTTP 
Dim Response As String 

Server = "http:///service/vestaService/" 
SoapRequest = [A2].Value 
    With Request 
        .Open "POST", Server, False 
        .send SoapRequest 
        Response = .responseText 

    End With 
Debug.Print Response 
MsgBox Response