Sub ArraySample()
    Dim mySeason As Variant
    
    mySeason = Array("春", "夏", "秋", "冬")
    
    MsgBox mySeason(1)
End Sub
