事件中读取全域变数读不到？？

kuoma

'ThisWorkbook区
Private Sub Workbook_Open()
    test
End Sub

'Module1区
Public Index
Public Sub test()
    Index =split("A B")
End Sub
Sub Macro1()
    Debug.Print Index(1) '这一段印的出来
End Sub

'Sheet1(Sheet1)区
Private Sub Worksheet_Change(ByVal Target As Range)
    Debug.Print Index(1) '这一段印不出资料???
End Sub

请教怎在事件中印出Index(1)的值
因为我有一大串的数组需要在开启的时候初始化，否则如果写到事件里面怕会一直运行占系统资源，所以想只在开启的时候执行一次！！

山菊花

Index是系统保留字，不能用作自定义变量，换个变量名即可。