Hola,no mira si vos lo queres llenar asi al array con los datos uno al lado del otro,te recomiendo usar esto,con
Split:
Código:
Private Sub Form_Load()
Dim sTexto As String
Dim aMeses() As String
Dim i As Long
sTexto = "Enero-Febrero-Marzo-Abril-Mayo-Junio-Julio-Agosto-Septiembre-Octubre-Noviembre-Diciembre"
aMeses = Split(sTexto, "-")
For i = 0 To UBound(aMeses)
MsgBox aMeses(i)
Next
End Sub
saludos.