isto esta certo?

dim x() as string

x() = ["a","b","c"]

 

Obrigado.

Voce pode fazer assim:

Dim XVet() as String ' Array dinâmico

Dim NDimens as long ' indice = (Num de dimensoes -1)  pois é base zero a menos que vc use Option base 1 na seção general

Redim XVet(NDimens) ' usando preserve apos o Redim vc preserva o conteúdo do array

'para incluir dados

Xvet(0) = "A"

Xvet(1) = "B" 

Xvet(2) = "C"

Xvet(3) = "D"

Xvet(n) = "E"

 

'ou

Dim YVet as variant

YVet = Array("A", "B", "C", "D","E")
' ou

Dim ZVet(5) as string ' De 0 até 4 = 5 elementos

X-Crow,

 No último caso que você exemplificou :

 

Dim ZVet(5) as string -> você poderá utilizar até Zvet(5) ou seja 6 elementos dependendo do seu Option Base (0 ou 1)

 

Abraço,

Rinaldo