Extract text from Outlook email body - where same key word occurs multiple times VBA 2010

Hi,

I am trying to extract specific lines of data from the body of an Outlook 2010 email and pass them to an Excel 2010 spreadsheet. You'll see from my attached code below that it looks to the email body for key words and extracts the text immediately following the key word. The code works when only one instance of a key word exists but is insufficient to cope with multiple instances. For example, the code below, when applied to the email body example – also below – when it encounters the key word ‘Fault’ returns the words “Enter button sticking” . What I am asking for your help with is how best to alter my existing code to also return the value following the second instance of the word ‘Fault’, viz. “M5 Not reading "ALL CARDS".
This is my first post. I've benefited greatly from the site already so thanks to those who take the time to contribute.

Email body

Site Name : CANTERBURY
Site Code : ES55
Site Type : CRANLEIGH COMPANY SITES
Job Ref : 886677
Shipping ID :222222
Serial No. : 209-665-113
Fault : Enter Button Sticking
Serial No. 1 : 209-665-385
Fault : M5 Not reading "ALL CARDS"

Please Login or Register  to view this content.

Thank you to those who took the time to read the post. I'll try again elsewhere.