尝试访问不存在的数组元素时，Excel VBA中出现超出范围的错误

Sub AccessArrayElement()
    Dim myArray(1 To 5) As Integer
    Dim index As Integer
    
    ' 初始化数组
    For index = 1 To 5
        myArray(index) = index * 10
    Next index
    
    ' 尝试访问存在的数组元素
    index = 3
    If index >= LBound(myArray) And index <= UBound(myArray) Then
        MsgBox "数组元素值为: " & myArray(index)
    Else
        MsgBox "索引超出范围"
    End If
    
    ' 尝试访问不存在的数组元素
    index = 10
    If index >= LBound(myArray) And index <= UBound(myArray) Then
        MsgBox "数组元素值为: " & myArray(index)
    Else
        MsgBox "索引超出范围"
    End If
End Sub