Macro to export outlook message body to excel

Dear Experts,
I found a code on internet to export email message body to excel. When I paste this code in the code window of this worksheet Line 9 turns red indicating something is not right. Full code is:

Please Login or Register  to view this content.

and the line below truns red

Please Login or Register  to view this content.

Looking forward for your help to make this code usable.
Best Regards/VKS

Hello Experts, Any help or guidance for me?
Best Regards/VKS