VBA 不能取得类WorksheetFunction 的VLookup属性

VBA 不能取得类WorksheetFunction 的VLookup属性
相关代码及界面如下，vlookup语句应该没有问题的

Sub 查询()
    Dim num As String
    Dim res As String
    num = InputBox("请输入查询值:")
    res = Application.WorksheetFunction.VLookup(num, Sheet1.Range("B:C"), 2, False)
    MsgBox num
End Sub

数据类型不一致，看你excel的内容，应该是想通过数字去查找，那就把num定义成integer试试

Dim num As Integer