If the database is full text indexed, try something like this:
Dim session As New NotesSession,db As NotesDatabase,coll As NotesDocumentCollection
Dim query As String, anyString As string
Set db = session.Currentdatabase
anyString = “lwp”
query = |[Form] = “Memo” and [Body]{| + anyString + |}|
Set coll = db.Ftsearch(query, 0)
Print "the number of docs is: " + CStr(coll.count)
If the database is NOT full text indexed, I think the problem you are having is that Body is a RichText field and the query selection does not like rich text. Simply try create a view with:
Select Form = “Memo” & @Contains(Body ; “Normal Engineering work hours”)
Does it return docs? If not, it gets a little more complicated. Let me know.