MaxLenCombo

Private Sub Combo1_KeyPress(KeyAscii As Integer)
'Se si cerca di scrivere l'undicesimo carattere e...

'questo carattere non e' il carattere Backspace,

'cancella l'evento!

Const MAXLENGTH = 10
If Len(Combo1.Text) >= MAXLENGTH And KeyAscii <> vbKeyBack Then
KeyAscii = 0
End Sub