VLOOKUP函数可以在Excel VBA中通过数组方式进行运算。以下是一个示例代码，该代码演示了如何使用VLOOKUP函数：
```
Sub VLOOKUPinVBA()
Dim rngArray As Range
Dim lookup_value As Variant
Dim table_array As Range
Dim col_index_num As Long
Dim range_lookup As Boolean
Dim result As Variant
'定义要进行查找的值
lookup_value = "B"
'定义要进行查找的表格范围及返回选项列号
Set rngArray = Range("A1:B10")
Set table_array = Range("A1:B10")
col_index_num = 2
'设置是否需要准确匹配，True为需要准确匹配，False为模糊匹配（默认）
range_lookup = False
'执行VLOOKUP函数并输出结果
result = Application.WorksheetFunction.VLookup(lookup_value, table_array, col_index_num, range_lookup)
MsgBox ("The result is " & result)
End Sub
```
在这个例子中，我们首先定义了要查找的值（lookup_value），然后定义了要查找的表格范围及返回选项列号（table_array和col_index_num）。我们还定义了是否需要准确匹配（range_lookup）。
最后，我们使用VLOOKUP函数执行相应的计算，并将结果存储在变量result中。最后通过对话框显示结果。
您可以根据自己的具体需求修改代码中的参数以及输入数据。
