Some times we need to clear the text box when click on top of it.
Ex - Enter date to a text box which displays "Date" on it.
So you have to put the code to MouseUp event of the text box. Below is the code for a date text box
Private Sub txtBDate_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If txtBDate.Text = "Date" Then
txtBDate.Text = ""
End If
End Sub