Cacher is the code snippet organizer for pro developers

Option Explicit

Sub GetPrice()
Dim ProductName As Variant
Dim Price As Double

ProductName = InputBox("Enter the Director name")
Sheets("Sheet1").Activate
Price = WorksheetFunction.VLookup(ProductName, Range("A1:B6"), 2, False)
MsgBox Price

End Sub