XMLHTTP SOAP Client

    Dim SendXml As String
    
    SendXml = "<?xml version=""1.0"" encoding=""utf-8""?>"    
    SendXml = SendXml & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema""" 
    SendXml = SendXml & "xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
    SendXml = SendXml & "<soap:Body>"
    SendXml = SendXml & "<TCKimlikNoDogrula xmlns=""http://kps.nvi.gov.tr/WS/Public"">"
    SendXml = SendXml & "<tcKimlikNo>11111111111</tcKimlikNo>"
    SendXml = SendXml & "</TCKimlikNoDogrula>"
    SendXml = SendXml & "</soap:Body>"
    SendXml = SendXml & "</soap:Envelope>"
                
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.open "POST", "http://tckimlik.nvi.gov.tr/kpspublic.asmx?wsdl", False
    XMLHTTP.setRequestHeader "Man", "POST http://tckimlik.nvi.gov.tr/kpspublic.asmx?wsdl HTTP/1.1"
    XMLHTTP.setRequestHeader "SOAPAction", "http://kps.nvi.gov.tr/WS/Public/TCKimlikNoDogrula"
    XMLHTTP.setRequestHeader "MessageType", "CALL"
    XMLHTTP.setRequestHeader "Content-Type", "text/xml"
    XMLHTTP.send (SendXml)
    
    MsgBox (XMLHTTP.ResponseText)

    Set XMLHTTP = Nothing