Обработка всех запросов - поиск строки (вывод в Immediate Window)

Private Sub AllQueriesSQL()
' Обработка всех запросов приложения и вывод в Immediate окно испорченных с "ВыражениеX" или "ExprX"
'----------------------------------------------------------------------------------------------------
Dim qdf As DAO.QueryDef
Dim sSQL As String, iCount%

    For Each qdf In CurrentDb.QueryDefs
        sSQL = qdf.SQL
        If InStr(1, sSQL, "Выражение") > 0 Or InStr(1, sSQL, "Expr") > 0 Then
            Debug.Print "Испорчен: " &  qdf.Name
        End If
        iCount = iCount + 1
    Next qdf
    
    Set qdf = Nothing
    Debug.Print "Total: " & iCount & " QueryDefs - Done!"
End Sub