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