Se coloco assim:

Sub adicionar()

Dim lista(1000) As String
Dim i As Long
Dim item As String
item = "item1"
i = 0

While lista(i) <> Null

i = i + 1

Wend

lista(i) = item



End Sub

Não dá erro, mas o array fica limitado a 1000 elementos.

Se coloco assim:

Sub adicionar()

Dim lista() As String
Dim i As Long
Dim item As String
item = "item1"
i = 0

While lista(i) <> Null

i = i + 1

Wend

lista(i) = item



End Sub

Dá erro.