calling web service through VB 6

[shaileshk1234]

Hi,
I am trying to call a web service by VB 6 the code is-:


Private Sub Command1_Click( )

Dim client
Set client = CreateObject("M SSOAP.SoapClien t30")
client.MSSoapIn it "http://localhost/FamilyWS/Service.asmx?ws dl"
strg = (client.Welcome Msg(Text1.Text) )
MsgBox (strg)
If Err.Number = -2147024809 Then
MsgBox "Invalid Web Service Request. Please check the Web Service URL"
End If
End Sub

I have made a Test web service in ASP.Net.
but when i run this code it gives the error


Runtime error 429
Active X component can't create object.

can any one solve my problem?