... die Suchformel ist falsch - außerdem kannst du die Schreibweise für die Formel auf geschweifte Klammern umstellen:
Set dc = db.Search({@Text($Class) != ""}, Nothing, 0)
... damit kannst du dann die Anführungsstriche normal verwenden. du bekommst also eine Collection an Dokumenten, die du über dc.Count dann auswerten kannst
If dc.Count > 0 Then ' wichtig - abfangen, daß wirklich was gefunden wurde...
While not doc is Nothing
' hier kommt dann die Stelle an der du agieren solltest...
Set doc = dc.getNextDocument( doc )
Wend
End If