Не могу выделить текст в Text1_KeyDown - VB

Формулировка задачи:

Доброго времени суток) У меня возникла проблема при обработке события Text1_KeyDown. Есть некий TextBox, при нажатии на клавиши vbKeyDown, vbKeyUp, vbKeyPageDown, vbKeyPageUp требуется выделить текст, находяшийся внутри.

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyDown
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    Case vbKeyUp
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    Case vbKeyPageDown
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    Case vbKeyPageUp
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    End Select
End Sub

Проблема в том, что текст выделяется только при нажатии клавиш vbKeyPageUp, vbKeyPageDown...а после обработки vbKeyDown, vbKeyUp....выделение пропадает......

Решение задачи: «Не могу выделить текст в Text1_KeyDown»

textual
                            Листинг программы 
                        
                            KeyCode = 0