DeleteCurrentWord

     Dim CS As Object
     Set CS = GetObject(,“Connex.Client”)

     If CS.IsOnline = False Then
          CS.Logon ““, ““, ““
     End If

     CS.Search “WC”, “#1”

     If ItemType = 0 Then
          CS.CursorRow = 17
          CS.CursorColumn = 20
          CS.DeleteCurrentWord
     End If
End Sub

• Logs on to Connexion if not already logged on, using the default authorization and password you selected in Tools > Options > Authorizations tab.
• Searches WorldCat for record number 1.
• If the result is an open WorldCat record, places the cursor in the word in the 17th row at the 20th character position and deletes the word.