Visual Basic - Auxilio otra vez necesito ayuda

Me enviaron el siguiente codigo

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
MsgBox "loquesea"
End If

End Sub

Solo me permite digitar numeros hasta ahi vamos bien, pero si me equivoque y deseo borrar no me da la opcion y lo mismo si dio "enter".

¿Has escrito en el evento Got_focus la siguientes intrucciones?

nombredelcampo.SelStart = 0
nombredel campo.SelLength = Len(nombredelcampo)

Prueba a ver si es éso lo que necesitas.

Saludos.

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii =13 Or KeyAscii =8 Then Exit Sub ' <---- Añade esta linea

If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
MsgBox "loquesea"
End If

End Sub