Company search google and retrieve first link from search (with VBA or not)

[MMarius]

Hello,

I have companies on column A like:

M&M
Sodexo
Philips
Samsung

On column B i want to google search the companies and retrieve/show the first link that is appearing

=HYPERLINK("Google"&SUBSTITUTE(A1,"&","%26")&"&btnI&gws_rd=ssl", A1) and it shows "M&M" in the cell and when clicked, It goes to the page.

What I want:
On the B1 to retrieve the first link from search and to show to URL of the 1st link in the cell. So, for M&M the 1st link is Personalized Gifts, Favors and More | M&M'S and I would like to show just mms.com

Thanks