Inserire solo 8 numeri

[xit]

Vorrei poter inserire nella mia text solo numeri e non più di 8
Cioè una text box che possa contenere al massimo 8 numeri e non
solo testo

[ans]

Se guardi bene tra le proprietà della textbox puoi impostare il massimo numero di caratteri che deve contenere.

[jabjoint]

Max_Number_Char = 18
if Len(Text1.Text) > Max_Number_Char Then
MsgBox "Impossibile inserire + di: " & Max_NUmber_Char & " caratteri."
end if

[xit]

Private Sub txtCap_KeyPress(KeyAscii As Integer)
Max_NUmber_Char = 5
If Len(txtCap.Text) > Max_NUmber_Char Then
MsgBox "Impossibile inserire altri caratteri.", vbExclamation
End If

Non mi compare il MsgBox