Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' create a new web service Dim service As pt.bn.sirius.GetRecordService service = New pt.bn.sirius.GetRecordService() ' create a MarcXML object to store the results of the service Dim record As pt.bn.sirius.MarcXML record = New pt.bn.sirius.MarcXML() ' invoke the service with an ISBN record = service.getRecordByISBN(TextBox1.Text) Dim Idx As Integer Dim fStr As String ' store the content of all fields from the MarcXML For Idx = 0 To record.fields.Length - 1 fStr = fStr & record.fields(Idx).tag & ": " & record.fields(Idx).content & vbCrLf Next ' display the MarcXML TextBox2.Text = fStr End Sub