Split data with labels when labels are not in the same order

I'm pulling data from my email to Excel with VBA. Attached is an example of the output. There are several labels, but they don't come in any consistent order. They are:
first_name :
last_name :
type_service :
phone :
starting_date :
email :
[zip : ]
Affiliationidcontact :

The format of each label is consistent - label[space]:[space]. I need to separate the data into columns. If it's better to do it in the VBA itself, that's fine. If it's better to do it formulaically after import, that's fine.

You can put this formula in C2:

=IF(ISNUMBER(SEARCH(C$1,$B2)),MID($B2,SEARCH(C$1,$B2)+LEN(C$1)+3,FIND(CHAR(10),$B2&CHAR(10),SEARCH(C$1,$B2))-(SEARCH(C$1,$B2)+LEN(C$1)+3)),"")

then copy it across into D2:F2, then copy those 4 formulae down as far as you need them.

Hope this helps.

Pete

That's perfect, thank you!

That's good to hear. Thanks for the rep.

If that takes care of your original question, please take a moment to select Thread Tools from the menu above and to the right of your first post in this thread, and mark the thread as SOLVED.

Pete