Visual Basic - Tecla suprimir

Como explico esto. Tengo el siguiente codigo que detecta la tecla suprimir cuando la pulso.

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
MsgBox "pulso la tecla suprimir"
End If
End Sub

Cuando pulso suprimir sale ese mensaje. ¿Que tengo que cambiar en lugar del mensaje para que al pulsar la tecla suprimir no haga nada?, es decir si en el Text1 contenia la palabra hola siga hay y no se borre.

Probe varias cosas pero no lo consegui.

Un saludo

Prueba con esto, pero con el evento KeyDown:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
KeyCode = 0
End If
End Sub

gracias, funciona perfecto...