I have created the below code..
Sub VATCHECK()
Dim sURL As String
Dim sEnv As String
Dim xmlhttp As New MSXML2.xmlhttp
Dim xmlDoc As New MSXML2.DOMDocument 'DOMDocument
sURL = "http://ec.europa.eu/taxation_customs/vies/services/checkVatService"
sEnv = "<?xml...