Private Sub Command1_Click()
Dim ns As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim ws As NOTESUIWORKSPACE
Dim coll As NotesDocumentCollection 
Dim search As String
If Not (ns Is Nothing) Then
    ns.Initialize ("password")
    Set db = ns.GetDatabase("MyServer", "MyDataBAse", False)
        If Not (db Is Nothing) Then
         search = "MyDocs"
            Set coll = db.search(search, Nothing,  0 ) ' тут находит документы, котрые нужны
            For j = 1 To coll.Count
            Set doc = coll.GetNthDocument(j)
            Call ws.EDITDOCUMENT(True, doc) 'тут ругается, что ws NO SET
            Next j
        End If
    Set db = Nothing
    Set ns = Nothing
    End If
End Sub