Option Explicit

Private Sub Command1_Click()
Dim Klijent As New SoapClient30
Dim Rez As String

Set Klijent = CreateObject("MSSOAP.SoapClient30")

'"http://tstsvr.achworks.com/testexec/achtstsoapbz.tss/wsdl/IACHSOAP"
Call Klijent.MSSoapInit("http://tstsvr.achworks.com/testexec/achtstsoapbz.tss/wsdl/IACHSOAP")
Rez = Klijent.ConnectionCheck("9502", "MY COMPANY", _
 "SASD%!%$DGLJGWYRRDGDDUDFDESDHDD")
MsgBox "Rez = " & Rez
End Sub