TextBox - Removing Values in Textbox upon click

I have a TextBox which is being used for entering a Username and I figured let's put in an instruction to Enter the Username there:

Private Sub TextBox1_Change()

'Gives an instruction to Enter Username instead of being blank
If Me.TextBox1.Value = "" Then
  Me.TextBox1.Value = "Enter Username here"
End If

End Sub

However when the User clicks on the button it does not remove 'Enter Username' and so this could cause confusion.
I tried to enter this in the 'GotFocus' bit but this doesen't work:

Private Sub TextBox1_GotFocus()

'Clear Contents when it's clicked
TextBox1.Text = ""

End Sub

Brilliant stuff, that's exactly what I want it to do, I see there's code in Initialise and Change so will apply that to mine now

Thank you