text文本的一个小问题？

Question

text文本框控件
目的：当输入的是空格的时候，将现在的文本内容变为空，同时光标回到文本的起始位置。
问题:当空格键按后，内容被清空，但光标会停留在第二个字符的位置，看似是多了一个空格。
请教如何做才不会有这个空格，怎么才能让光标回到第一个字符的位置。

Answer 1

注意使用的事件：
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 32 Then
        Text1.Text = ""
        KeyCode = 0
    End If
End Sub

Answer 2

好了  结帖   谢谢楼上的回答，忘记还有个keyup了　呵呵