Underline part of text after/ before exact character in a cell

Hi everyone,

Sorry that I am new in VBA. Is there a way to underline the characters in-between "after" and "vs" words and must contain specific text ("price increase"), and then produce the expected results below?

Expected results:

after price increase of ~0.1% - 0.15% vs others in Year 2020:
~234% after ~6% - 7% price increase vs others in Year 2019: ~7.5% after price increase of ~1% - 9.9% (avg. ~5%) vs previous price released from Oct 2019 to May 2020 and 1st launch in Oct 2019

Prices of 45 stocks were revised after ~4% - 6% price reduction vs previous price released in May 2020 after ~1% - 7% price increase vs 1st launch in Oct 2019 and price reduction of ~1.2% - 2% vs 1st launch in Oct 2019 resulting from adding 6% discount

Thanks for your advice in advance!

Please Login or Register  to view this content.

Thanks for your prompt reply, sintek. But I found that the second phrase in cell F11 in your Excel file has not an underline (the example was as follows) after running the macro. And when I tried to apply this, I will get a Type Mismatch error due to the limit of string length 255. Is there any solution regarding these two issues? Thanks again.

~234% after ~6% - 7% price increase vs others in Year 2019: ~7.5% after price increase of ~1% - 9.9% (avg. ~5%) vs previous price released from Oct 2019 to May 2020 and 1st launch in Oct 2019

Thank you so much, Sintek. This means a lot to me.