Si necesitas crear una lista ordenada en un array, puedes ahorrar mucho código usando una variable variant en vez de una array normal.

Por ejemplo, añade un botón en un formulario y copia el código que se encuentra a continuación en el evento click del mismo :

Private Sub Command1_Click()
    '
    ' crear un array empleando variables variant
    '
    Dim aryList As Variant
    '
    aryList = Array("Sin acceso", "Sólo Lectura", "Modificar", "Borrar")
    '
    MsgBox aryList(2)
    '
End Sub

From--Michael C. Amundsen, mike@amundsen.com, http://www.amundsen.com