[VB6] InputBox con valori esclusivamente numerici

[MItaly]

Basta verificare i dati dopo che sono stati inseriti con IsNumerical...

Dim stringa As String
Dim numero As Double
Do
    stringa = InputBox("Inserisci un numero:")
Loop Until IsNumeric(stringa)
numero = CDbl(stringa)