Il fatto è che premendo il pulsante "togli" il fuoco alla TextBox5.

Prova ad aggiungere del codice che la forzi a riprendersi il Focus:
codice:
        TextBox5.Select()  
        Dim Text As String = TextBox5.Text
        TextBox5.Select(Text.IndexOf(TextBox6.Text), _
                       TextBox6.Text.Length)