Положение курсора в TextBox (RichTextBox) - VB

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

В общем есть вот такая прога:

                    Листинг программы
                
 
                        
                          
                    
Private Sub pole_vvoda_KeyPress(Keycode As Integer)
If Keycode = vbKeySpace Then
  Label3.Caption = Label3.Caption + " " + pole_vvoda.text
  If pole_vvoda.text = artxtbegin(i) Then
    i = i + 1
    pole_vvoda.text = Empty
    Label4.Caption = ""
    pole_vivoda.text = artxtbegin(i)
    pole_vvoda.SelStart = 0
  Else
    Label4.Caption = "не верно"
    Beep
    pole_vvoda.text = Empty
    pole_vivoda.text = artxtbegin(i)
    pole_vvoda.SelStart = 0
  End If
End If
End Sub

Есть массив, созданный сплитом строки текста. В pole_vvoda вводится эта строчка с клавиатуры, и каждое слово сверяется с элементом массива. Проблема заключается в том, что после первого слова курсор становится не в нулевое положение, а в первое. То есть, чтобы совпал 2 и последующие слома массива, нужно тыкнуть бэкспэйс. Что я делаю не так?

Решение задачи: «Положение курсора в TextBox (RichTextBox)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub pole_vvoda_KeyPress(Keycode As Integer)
If Keycode = vbKeySpace Then
  Label3.Caption = Label3.Caption + " " + pole_vvoda.text
  If pole_vvoda.text = artxtbegin(i) Then
    i = i + 1
    Label4.Caption = ""
  Else
    Label4.Caption = "не верно"
    Beep
  End If
  pole_vvoda.text = Empty
  pole_vivoda.text = artxtbegin(i)
  Keycode=0 'иначе по окончании процедуры в очищенное pole_vvoda будет введен пробел
End If
End Sub