Function Price(Product As String) As Variant
Select Case Product
Case "Apples"
Price = 12.5
Case "Oranges"
Price = 15
Case "Pears"
Price = 18
Case "Mangoes"
Price = 25
Case Else
Price = CVErr(xlErrNA)
End Select
End Function
Sub test()
MsgBox CStr(Price("Oranges"))
End Sub