VBA 判断元素是否在数组中

Sub macro1()
Dim arr, i%
arr = Array(1, 2, 3, 4, 5, 6)
On Error Resume Next
i = WorksheetFunction.Match(9, arr, 0)
If i > 0 Then MsgBox "存在" Else MsgBox "不存在"
End Sub