I realize it is now six years later but, I ran into a need for this too -- and wanted to add that if you want users to retain the ability to also select existing text with the mouse, the TextBox Click event needs to be a little smarter:
Private Sub MyTextBox_Click()
If MyTextBox.SelLength =...