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 Sub