how to do a vlookup in vba?

 Sub testingggg()
'
' Macro2 Macro
' 
Application.ScreenUpdating=False
With ActiveCell.Offset(0, 1)
    .FormulaR1C1 = _
        "=VLOOKUP(RC[-1],'C:\Users\Kevin\Desktop\FINAL preliminary release of estim program\[MASTER PRICELIST.xlsm]PRICELIST'!R1C1:R65536C43,2,FALSE)"
    .Value = .Value
End With
Application.ScreenUpdating=True
End Sub

Regards, TMS