Podrías usar el evento Change para limitar la cantidad de texto que se puede ingresar en el ComboBox, con algo como esto:
Código vb:
Ver originalDim Maximo As Byte
Maximo = 10
If Len(Combo1) > Maximo Then
Combo1 = Left(Combo1, Maximo)
Combo1.SelStart = Maximo
End If