Macro for extracting text from one cell and entering it into cell beside

Hi there

In one column (Column A) I have a column of data which contains long descriptive text - i want to extract a specific piece of text from this descriptive text and enter it into the next Column (Column B).

E.g. Cell A1 = "Hello Buddy, how are you?" - i want to extract the word Buddy and enter it into cell B1

then A2 into B2, A3 into B3, etc, etc,...

Is there a simple macro out there that can do this?

I know a little bit about macros but not enough to do this.

Appreciate anyone's help
Regards
John