Ciao ho provato ma non va,
Text1(index)in rete ho trovato questo modulo


Public Function CkDgtNumber(KeyAscii As Integer, nMin As Integer, nMax As Integer) As Integer
CkDgtNumber = 30
If KeyAscii >= 48 + nMin And KeyAscii <= 48 + nMax Then CkDgtNumber = KeyAscii
Select Case KeyAscii
Case 44,45
CkDgtNumber = KeyAscii
Case vbKeyBack, vbKeyTab, vbKeyClear, vbKeyReturn
CkDgtNumber = KeyAscii
Case vbKeyEscape, vbKeyDelete, vbKeyNumlock
CkDgtNumber = KeyAscii
End Select
End Function

-------------------------------------------------------------
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = CkDgtNumber(KeyAscii, 0, 9)

End Sub
-------------------------------
sembra andar bene ma non mi controlla i numeri da 1 a 90 e nell'inserimento nel text se ne possono scrivere 4 numeri invece di 2.