[VB6] Input solo numerico

[LMondi]

axsw funziona bene. Mi sono permesso di fare una piccola modifica in modo che sia cancellato l'inserimento Non numerico.

Public Sub Txt1_Change()
    
    Dim ix As String
    Dim ixs As String
    Dim ix2 As String
    
    ix = Len(Txt1.Text)
    If ix = 0 Then
        Exit Sub
    End If
    
    ixs = (Txt1.Text)
    If IsNumeric(Txt1.Text) Then
        Txt1.SetFocus
        Else
        MsgBox "Casella di testo Txt1: INSERIRE SOLO VALORI NUMERICI!", vbCritical, "nomedeltuoprogramma"
        ix2 = Mid(ixs, 1, (ix - 1))
        Txt1.Text = ix2
        Exit Sub
    End If
End Sub