Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Use select case statement

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