Option Explicit '强制对模块内所有变量进行声明

Option Compare Text '字符串不区分大小写

Option Base  '指定数组的第一个下标为1(只能指定0或1)

Sub s1()

On Error GoTo ErrorHandler

    Dim a() As String

    a() =

ErrorHandler:

    Debug.Print "Error"

End Sub