Webservice return Encryption error

[pavell86]

Hello I use this macro, but returned message Encryption error. Can I help me? Thank you

Public Sub httplogin()
Dim result As String
Dim xmlDoc As Object, post As Object
Dim sEnv As String
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
Dim HTTPRequest As WinHttp.WinHttpRequest
Set HTTPRequest = New WinHttp.WinHttpRequest
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 = "<?xml version=""1.0"" encoding=""utf-8""?>"
sEnv = sEnv & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = sEnv & "<soap:Body>"
sEnv = sEnv & "<logUser xmlns=""http://www.webservice.com/Sws/"">"
sEnv = sEnv & "<LOGIN>user</LOGIN>"
sEnv = sEnv & "<PASSWORD>pass</PASSWORD>"
sEnv = sEnv & "</logUser>"
sEnv = sEnv & "</soap:Body>"
sEnv = sEnv & "</soap:Envelope>"
With HTTPRequest
.Open "POST", "http://server.com/webservice.asmx?WSDL&op=logUser", False
.SetRequestHeader "Content-Type", "text/xml; charset=utf-8"
.SetRequestHeader "Upgrade-Insecure-Requests", "1"
.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
.send sEnv
Debug.Print .responseText
End With
End Sub