Public Class Form1
 
Private myService As New Service1.Service1SoapClient
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
         myService.SetMessage("Das ist ein Test")
 
MsgBox(myService.GetMessage)
     End Sub
End Class