Extract all data values from a cell that begin with j

[whitjm4]

I have a data extract where the cell value is

J0210;#7;#J0497;#28;#J0984;#82;#J0692;#68

I only want the values that start with the 'J'. The field value may be multiple lengths but the J values are always 5 characters with a semi-colon.
The result should be J0210;J0497;J0984;J0692.
I think this can be done with a VBA loop but I don't know the syntax.

 

[whitjm4]

Thanks this works perfectly,

 

[Rick Rothstein]

Thanks this works perfectly,

What works perfectly? You did not indicate who or which message you were replying to.

 

[whitjm4]

Both JoeMo and Rick Rothstein's answer work exactly as I needed. Thanks to the both of you.