Hum..?

Ok, to get your text to erase the data select the way you previously wrote it
in 6 follow the code below. By the way, in VB.net text is NOT the assumed
property.

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox1.GotFocus
       TextBox1.SelectAll()
       TextBox1.SelectionLength = Len(TextBox1.Text)
   End Sub