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
You could create an array of messages as below:
Dim arr() As String arr() = Split(Item.Body, "From:")
Then loop through the messages:
Dim varElement as variant for each varElement in arr() next varElement