Excel VisualBasic Script

Sub GetPrice()
    Dim PartNum As Variant
    Dim Price As Double
    PartNum = InputBox("Enter the Part Number")
    Sheets("Prices").activate
    Price = WorksheetFunction.VLookup(PartNum, range("PriceList"), 2, False)
    MsgBox PartNum & " costs " & Price
End Sub