Select Focus

I'm trying to write a program that will clear a text box in the following way:

First you click on the text box and the letters in the textbox become selected. Then, I click on a command button called CLEAR and it will then clear the selected letters in the text box. What is the easiest way to do this?

Easy thing :)

Code:

---

Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Command1_Click()
    Text1.Text = ""
End Sub

---