Solo tienes que permitir tambien el caracter ascii 8.
Este ejemplo permite borrar y meter espacios (ascii 32).
Código vb:
Ver originalPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) _
Or (UCase$(Chr(KeyAscii)) <> LCase$(Chr(KeyAscii))) _
Or KeyAscii = 8 _
Or KeyAscii = 32 _
Then
Else
KeyAscii = 0
End If
End Sub
Saludos