codice:
Indice = 0
While Indice < Lista.ListCount
   If Trim(Lista.List(Indice)) = "" Then
       Lista.RemoveItem(Indice)
       Indice = Indice - 1
   End If
   Indice = Indice + 1
Wend
Man mano che cancelli, ListCount diminuisce.
"Indice = Indice - 1" permette al ciclo di non incrementare l'indice quando cancelli un elemento, altrimenti non ti accorgeresti di 2 elementi vuoti consecutivi (cancellando un elemento, l'indice di quelli consecutivi diminuisce di 1)