Public Function fnEssentialOilsShow(byEssentialOilsCalc As Byte, intEssentialOilsQty, intBaseMaterialsQty, bytEssentialOilsPercent) As String
Select Case byEssentialOilsCalc
Case 1
fnEssentialOilsShow = intEssentialOilsQty & " Drops / " & intBaseMaterialsQty & "ml"
Case 2, 3, 4...