Cancelar una tecla despues de presionarla

[hunter18]

Necesito que al precionar la tecla retroceso en un RichTextBox no me haga nada dependiendo de una condicion.
Si el ultimo caracter es un espacio en blanco no hara nada, caso contrario se aplicara la tecla precionada.

Lo unico que me falta es como cancelar la tecla precionada cuando se cumpla la condicion?

Código:

Dim Retroceso As Boolean
Private Const vbKeyBack = 8

Private Sub RichTextBox2_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyBack Then Retroceso = True
If Retroceso Then

If Right(RichTextBox2.Text, 1) = " " Then
   'no retrocedo #Aqui deberia cancelar dicha tecla#
   MsgBox "no puede regresar"
Else
   'retrocedo asi que no hago nada
End If
   
Form_KeyUp 0, 0
End If

End Sub

Private Sub RichTextBox2_KeyUp(KeyCode As Integer, Shift As Integer)
  Retroceso = False
End Sub

[pkj]

Solo tienes que poner KeyCode = 0

[hunter18]

oks funciono bien