count the list box items but don't count the blank spaces.

[biraja]

if in the list box 5 items are present then counter show 5 but don,t count the blank space.

[Rabbit]

It would help to see your code.

[BigPapaN0z]

Dim cnt As Long
Dim i As Long

For i = 0 To List1.ListCount - 1
    If Trim(List1.List(i)) <> "" Then cnt = cnt + 1
Next

' cnt will return how many non-blank items; we'll just print for reference. Do what you need here.
Debug.Print "Non-Blank Entries: " & CStr(cnt)