Here is a NON-API way
Option Explicit

Private blnBackSpace As Boolean

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyBack Or KeyCode = vbKeyDelete Then
...