Using VBA to find a word in a line of text then return data to the right of it

Hello There,

This is part of a much wider thing but I'm getting tripped up on something.

In the attached I want the red cell (B7) to look at it's header (B6), then search the large string of gibberish in A1 until it finds it.

Then once it's found it I want it to return everything to its right that sits between |these symbols|. so the answer would be C_100

If there is no text between the symbols I want it to enter <ALL> in the cell. As shown in the blue cell.

If I get it working for the first couple I think I can figure it out for the rest. Please Help!