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中。最后通过对话框显示结果。

您可以根据自己的具体需求修改代码中的参数以及输入数据。