Visual Basic - 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

Len es para consultar la longitud de una cadena no de un array.