'almeno massimo puoi inserire 10 caratteri
private sub form_load()
text1.maxlenght=10
end sub

'almeno puoi inserire solo numeri
private sub text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr$(KeyAscii)) = 0 Then KeyAscii = 0
End Sub