Declarations:
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
Code:
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
