要判断一个数据是否存在于数组中，可以使用VBA中的InStr函数。该函数可以用来查找字符串中是否包含指定的子字符串。
以下是一个示例代码，演示了如何使用InStr函数来判断一个数据是否存在于数组中：
Sub CheckDataInArray()
Dim myArray() As Variant
Dim searchData As Variant
Dim i As Long
' 初始化数组
myArray = Array("Apple", "Banana", "Orange", "Grapes")
' 要搜索的数据
searchData = "Banana"
' 遍历数组，判断是否存在搜索数据
For i = LBound(myArray) To UBound(myArray)
If InStr(1, myArray(i), searchData) > 0 Then
MsgBox "数据存在于数组中"
Exit Sub
End If
Next i
MsgBox "数据不存在于数组中"
End Sub
在上述代码中，首先定义了一个名为myArray的数组，并初始化了一些数据。然后定义了一个要搜索的数据searchData。接下来使用For循环遍历数组，通过InStr函数判断每个数组元素是否包含搜索数据。如果找到了匹配的数据，则会弹出一个消息框显示"数据存在于数组中"；如果遍历完整个数组没有找到匹配的数据，则会弹出一个消息框显示"数据不存在于数组中"。
需要注意的是，InStr函数是区分大小写的。如果需要进行大小写不敏感的搜索，可以将数组元素和搜索数据都转换为统一的大小写。
