Search, Copy, Paste And Apply All At Once

I couldn't figure out how to write a function to do above tasks all at once.

For example,

Dim strMessage
strMessage = " Hello, <Quote> It is rainning outside </Quote>. I'm in a bad mood.

The function should search the <Quote> and </Quote>, copy all the text within the quotes and store them to another variable, at last change its font size and style.

So the search result will be: It is rainning outside Font size changed to 12 and font typle black arial.