How to do a vlookup in VBA?

I reckon

Sub testing()
   Dim Description            As String
   Dim Answer                 As String
   Dim lCol                   As Long

   Description = ActiveCell.Offset(0, 3).Value
   ' remember the activecell is in the voltage column, hence the description column is at activecell.offset(0,3)

   Select Case ActiveCell.Value
      Case 220
         lCol = 9
      Case 110
         lCol = 10
      Case 380
         lCol = 11
   End Select
   Answer = Application.VLookup(ActiveCell.Offset(0, -1).Value, Workbooks("xyz.xlsm").Sheets("PRICELIST").Range("A:K"), lCol, False)

   ActiveCell.Offset(0, 3).Value = Description & Answer

End Sub