hier meine Lösung:
Dim T As New NotesDateTime("")
T.LSLocalTime = db.LastFTIndexed
UnindexedCount = db.Search({@All}, T, 0).Count
If UnindexedCount > 0 Then
Call db.UpdateFTIndex(True)
Msgbox "Der Index der Datenbank ist nicht aktuell!",48,"HINWEIS"
Exit Sub
End If