Trim Values of a Cell

Hi!
Could you recommend a Macro that can trim contents of a Cell?
What Im trying to achieve is to create a VBA Macro to trim a Cell, leave only the text following "O:"

On Cell A1 I have this value:
"Location: C:\Test Folders O: Trevayne, Andrew"

I'd like this to be trimmed and have a return value on A2
Trevayne, Andrew

Can this be done via VBA and not by Formula?


Cheers,
Andrew