Eliminate white spaces longer than one space

Hello,
I have a string called MyString which, each time has a different length and contains multiple white spaces between the words.
I need a macro loop or a code which would run through the MySting and would remove all the white spaces longer than one space.
Cold you please advise?
Thanks

e.g

Please Login or Register  to view this content.

Adjust the range and see if this works.