Detect end of new message in email conversation body

Question

When a message gets replied or forwared the previous thread gets appended on your new mail by placing i.e. ----Original Message---- in front of it.

Outlook does the

Answer 1

What about changing your InStr function to EndOfMsg = InStr(1, Item.Body, "From:")?