Mailbody nach bestimmter Zeichenfolge durchsuchen

[ralph71]

Hallo zusammen,

mittels LS möchte ich eine Mail nach einer bestimmten Zeichenfolge durchsuchen

Mein (gekürzter) Code:

Dim body As NotesRichTextItem
Dim doc As NotesDocument
Dim Mailtext As String
Dim Dateiname As String

Set body = doc.GetFirstItem("Body")
...
Mailtext = body.Text
If Instr("unverändert", Mailtext) > 0 Then
   Dateiname = "unverändert"
End If
...

Wenn ich Mailtext zur Kontrolle direkt schreiben lasse, dann steht da im String unter anderem auch "unverändert". Dh es wird aus dem Body in Mailtext ausgelesen, aber das Instr findet den gesuchten String nicht.
Selbst eine erneute Konvertierung über Mailtext2 = CStr(Mailtext) ist ohne Erfolg.
Was mache ich falsch?

Edit: der Agent läuft zeitgesteuert am Server.

Vielen Dank!

[Christian Kröll]

Die Elemente sind vertauscht
Instr(Mailtext,"unverändert")

[ralph71]

Ein Wahnsinn. Meine Güte.
FUNKTIONIERT!
DANKE!