Clear empty rows in combobox

[wmbb]

I'm populating a combobox in a userform using an array called arrsem
I've defined the array and populated the combobox using

Dim arrsem(6)
cmb_system.List = arrsem

arrsem is an array filled in a procedure depending on a choice of the user.
If, for instance, only the 2nd and 4th item of arrsem is filled how can I remove the empty lines in the combobox

arrsem(0) = ""
arrsem(1) = "london"
arrsem(2) = ""
arrsem(3) = "berlin"
arrsem(4) = ""
arrsem(5) = ""
arrsem(6) =

 

[SkipVought]

Either prevent the array from containing zero length strings or load the combobox in a loop, testing each array value.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[wmbb]

Okay,

Skip thanks for your reaction.
I have solved this in another way using a dynamic array, count the items in the array which are not equal to "" and then redim a new array using this info.

I was hoping there was a more simple solution for this.