Sub example()
Dim varResult As Variant
Dim varLookUp_Value As Variant
Dim rngTable_Array As Range
Dim lngCol_Index_Num As Long
Dim blnRange_LookUp As Boolean
varLookUp_Value = Worksheets("Sheet1").Range("A1").Value
Set rngTable_Array = Worksheets("Sheet2").Range("A:B")
lngCol_Index_Num = 2
blnRange_LookUp = True
'this is equivalent of =VLOOKUP(Sheet1!A1,Sheet2!A:B,2,True)
varResult = Application.VLookup(varLookUp_Value, rngTable_Array, lngCol_Index_Num, blnRange_LookUp)
End Sub