Tengo este codigo que no permite el ingreso de letras pero quiero adaptarlo , para que de un aviso cuando se ingresa una carcter que no sea numero puse un msgbox despues del then peor no funciona por que muestra el mensjae siempre aunque ingrese un numero
Código:
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Then GoTo 1 If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 1: ''