Option Explicit > >Private Declare Function SendMessage Lib "user32" _ > Alias "SendMessageA" (ByVal hwnd As Long, _ > ByVal wMsg As Long, ByVal wParam As Long, _ > lParam As Any) As Long > >Private Const CB_LIMITTEXT = &H141 > >Public Sub LimitCBText(CB As ComboBox, _ > MaxLength As Long) > > 'usage: CB = ComboBox to limit length of > 'MaxLength: Max characters allowed > 'Example: LimitCBText Combo1, 5 > > SendMessage CB.hwnd, CB_LIMITTEXT, MaxLength, 0& >End SubMy mistake i was not precise, I meant DATACOMBO control.