>>258 このレベルでいいの？配列の初期値

'A1:配列の型がVariantで構わない場合
Sub a()
Dim a, i As Long

a = Array("0", "...", "39") '初期値の設定

For i = 0 To UBound(a)
Debug.Print i, a(i)
Next
End Sub

'A2:配列の型をStringにしたい場合
Sub a2()
Dim str(39) As String

DimArrStr str, Array( _
"0", "...", "39" )

Dim a
For Each a In str
Debug.Print a
Next
End Sub

Sub DimArrStr(str() As String, var As Variant)
Dim i As Long
For i = 0 To UBound(var)
str(i) = var(i)
Next
End Sub