Duda Muy Chorra Con Un Array

[Adri58]

Como se inicializa un array de strings una vez declarado?
Lo normal es hacer esto:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
     Dim matriz() As String
     ReDim matriz(0 to 2)
     matriz(0)="jhgjh"
     matriz(1)="jadfjhdf"
     matriz(2)="jhgjhgjhJ"
End Sub

Pero se puede hacer algo asi?

Código [Seleccionar] Expandir


Private Sub Command1_Click()
        Dim matriz() As String
        ReDim matriz(0 To 2)
        matriz() = "adhffvsdhfs","gdfgdfg","xfxgdfg"
End Sub

O Sea, Asignar los datos del array pero todos de golpe?
PD: Ya se que es chorra la pregunta 

[CeLaYa]

creo que lo podrías hacer así:

Código [Seleccionar] Expandir


dim Matriz as Variant
Matriz = Array("adhffvsdhfs","gdfgdfg","xfxgdfg")


[Adri58]

Ok, muchas gracias. Funciona perféctamente