[VB6] Input solo numerico

[axsw]

Ciao prova così:

Public Sub txtbox_Change()
  If IsNumeric(txtbox.Text) Then
   'quello che vuoi che faccia
      Else:
        MsgBox "Casella di testo txtbox: INSERIRE SOLO VALORI NUMERICI!", vbCritical, "nomedeltuoprogramma"
  txtbox.SetFocus
  Exit Sub
 End If
End Sub