Visual Basic para Aplicaciones - Arrays dinamicos

Hola buenos días, querria saber como le asigno a un array dinamico el tamaño.
Yo hice lo siguiente:
Option Explicit
dim arrayDescripcion() as string
Private Sub Command1_Click()

ReDim arrayDescripcion(1) As String
ReDim arrayDescripcion(Len(arrayDescripcion)) As String
ReDim Preserve arrayDescripcion(Len(arrayDescripcion)) As String
For i = LBound(arrayDescripcion) To UBound(arrayDescripcion)
MsgBox arrayDescripcion(i)
Next i

End Sub

Me da un error en len(arrayDescripcion), me dice que no puede ser asignado asi. Alguien me podria decir que es lo que estoy haciendo mal.
Gracias y buenos dias

Lo que haces mal es que al redimensionar la segunda vez, para saber el indice mas alto no vale con len, esto es para una cadena, no para un array de cadenas, hay unas funciones que te dan el indice superior y el inferior, una es UBOUND , creo que esta es la que te da el indice superior, miralo en los arrays dinamicos en la ayuda que hay viene. Otra cosa, te aconsejo que no lo hagas todo en una linea, primero ve cual es el indice superior y lo cargas en una variable, despues lo redimensionas, otra cosilla, si pones solamente REDIM borraras todos los datos que tenga el array dinamico al redimensionarlo, para que no se borre tienes que utilizar el parametro PRESERVE, con lo que quedaria REDIM PRESERVE ...

Creo que era preserve, esto tambien miralo en la ayuda del REDIM.

Espero haberte ayudado