Evitar el uso de la tecla Suprimir

[Marcelote]

Claro que la hay, como lo estás haciendo, pero en el evento KeyDown, no en el KeyPress:

Código:

Private Sub txtTest_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDelete Then
        KeyCode = 0
    End If
End Sub

Un saludo.