VBA_Excel_教程：Option，错误处理

Option Explicit '强制对模块内所有变量进行声明
Option Compare Text '字符串不区分大小写
Option Base 1 '指定数组的第一个下标为1(只能指定0或1)

Sub s1()
On Error GoTo ErrorHandler
Dim a(10) As String
a(0) = 1
ErrorHandler:
Debug.Print "Error"
End Sub