我在消息框中显示数组输出时遇到问题

I am having issues with showing the output of my array in a message box

我正在尝试显示已在 VBA Excel 中定义为字符串的数组的输出。但是,我没有得到我正在寻找的输出。这是我的代码:

Sub myArray()
    Dim dayArray(0 To 6) As String
        i = dayArray(i)
        dayArray(0) = "Sunday"
        dayArray(1) = "Monday"
        dayArray(2) = "Tuesday"
        dayArray(3) = "Wednesday"
        dayArray(4) = "Thursday"
        dayArray(5) = "Friday"
        dayArray(6) = "Saturday"
    For i = 0 To 6
        MsgBox "Today is "
    Next
End Sub

我正在尝试根据字符串输出星期几。我怎样才能确保我收到消息框的日期?

结束这个问题:

Sub myArray()
    Dim dayArray(0 To 6) As String

    dayArray(0) = "Sunday"
    dayArray(1) = "Monday"
    dayArray(2) = "Tuesday"
    dayArray(3) = "Wednesday"
    dayArray(4) = "Thursday"
    dayArray(5) = "Friday"
    dayArray(6) = "Saturday"

    Dim i as Long
    For i = 0 To 6
        MsgBox "Today is " & dayArray(i)
    Next
End Sub