[Resolvido]Vetor por Variavel

Boa noite,

Gostaria de saber como criar uma vetor de inteiros a partir de uma variável, observem a ideia:

...
Dim QuantiUnidade As Integer 'Cria uma variável
QuantiUnidade = rs("QuantiUnidade") 'Define a variável com um valor numero que vem de uma consulta.
Dim nomunidade(0 To QuantiUnidade) As String ' Aqui está dando erro na criação da vetor.
Dim valorunidade(0 To QuantiUnidade) As Integer
Dim i As Integer

Gostaria de saber se não é possível criar? Ou se existe outra maneira! Obrigado.

Olá

Experimente usando o ReDim:


Dim QuantiUnidade As Integer 'Cria uma variável
Dim nomunidade() As String
Dim valorunidade() As Integer
Dim i As Integer


QuantiUnidade = rs("QuantiUnidade")
ReDim nomunidade(QuantiUnidade) As String
ReDim valorunidade(QuantiUnidade) As Integer


Sucesso!

Obrigado deu certo. Mas se não for pedir muito qual a diferença entre o Redim e o Dim?