How can I trim strings with re-occurring pattern to a defined string

I have the following type of strings: (3 examples)

BMC Nephrology (2015) 16:1 Article Number: 38. Date of Publication: 1 Dec 2015
Toxicology (2015) 333 (89-99). Date of Publication: 3 Jul 2015
Clinical Chemistry and Laboratory Medicine (2015) 53 SUPPL. 1 (S1043). Date of Publication: July 2015

I want to reduce them to the following:

BMC Nephrology
Toxicology
Clinical Chemistry and Laboratory Medicine

How can I do this in a VBA?

Please Login or Register  to view this content.

Jindon, great! That simple one liner does the job. One question. What is the function of the "2"?

NeedForExcel, thanks for the solution. It's another way of doing it. But not as simple as jindon's one liner. Never the less I will keep it in mind.

It's a constant for LookAt argument, 1 for xlWhole, 2 for xlPart.

I see. I understand. Thanks for clarifying.

You are welcome and thanks for the rep.