inputting a single value into a variant

I have the following code:

Please Login or Register  to view this content.

It works fine if citynum >= 2, but not if citynum is 1, meaning there is only one value to enter into the variant named cities. In this latter case, I get the error 'Run-time error '13': Type mismatch'. I've tried to ReDim cities to be only one value, but that didn't work. How can I get this to work? Thanks.


Moderator's Edit: Use code tags while posting code. To do so in future, select your code and click on the # icon at the top of your post window.

try with Dim cities
instead of Dim cities() As Variant