Proper Case of Name

Write a program that will take user's input of a full name and display it in Proper Case -- each name starting with an uppercase letter and remaining letters in lowercase. In addition, if name begins with Mc, Mac, or includes an apostrophe (O' or D'), the letter coming after that should also be in uppercase. Extra: If user wishes to retain the lowercase letter after Mc or Mac, they should add a tilde ~ at end of name, or some other device.

I wrote such a program over 4 years ago. Now do it yourself. I'm curious as to how your code will differ from mine. Please use code that is compatible with QB, not QB64.

(Note: This was also posted to the main forum in response to Zack's request for program ideas.)