これが私が書いたコードです。Web サービスの詳細については、https://tckimlik.nvi.gov.tr/Service/KPSPublic.asmx?op=TCKimlikNoDogrulaをご覧ください。
Function tckimlik(ad As String, soyad As String, tckn As Double, dy As Integer) As String
Dim responseText As String
Dim sURL As String
Dim sEnv As String
Dim xmlhtp As New MSXML2.XMLHTTP
Dim xmlDoc As New DOMDocument
Dim startPos, endPos, openTag, closeTag, startTagPos, sid As String
sURL = "http://tckimlik.nvi.gov.tr/WS/TCKimlikNoDogrula"
sEnv = "<?xml version=""1.0"" encoding=""utf-8""?>"
sEnv = sEnv & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = sEnv & " <soap:Body>"
sEnv = sEnv & "<TCKimlikNoDogrula xmlns=""http://tckimlik.nvi.gov.tr/WS""> "
sEnv = sEnv & "<TCKimlikNo>"
sEnv = sEnv & tckn
sEnv = sEnv & "</TCKimlikNo>"
sEnv = sEnv & "<Ad>"
sEnv = sEnv & ad
sEnv = sEnv & "</Ad>"
sEnv = sEnv & "<Soyad>"
sEnv = sEnv & soyad
sEnv = sEnv & "</Soyad>"
sEnv = sEnv & "<DogumYili>"
sEnv = sEnv & dy
sEnv = sEnv & "</DogumYili>"
sEnv = sEnv & " </TCKimlikNoDogrula>"
sEnv = sEnv & " </soap:Body>"
sEnv = sEnv & "</soap:Envelope>"
With xmlhtp
.Open "post", sURL, False
.setRequestHeader "Host", "tckimlik.nvi.gov.tr"
.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
.setRequestHeader "soapAction", "http://tckimlik.nvi.gov.tr/WS/TCKimlikNoDogrula"
.send sEnv
xmlDoc.LoadXML .responseText
responseText = .responseText
End With
tckimlik = responseText
End Function
ありがとう