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