using sum in a Function

[cneill]

How do I do the calulation in this function? I want to add all the Delivered values that meet the Case criteria
thoughts please

Public Function CFLDelivered()
Dim SchemeID As String, Delivered As String, Total As String

SchemeID = Forms![FrmElectricalFundingData].SchemeID
Delivered = Forms![FrmElectricalFundingData].Delivered

'Total = Sum([Delivered]) this is were it goes wrong

Select Case Forms![FrmElectricalFundingData].SchemeID
Case 4 Or 44 Or 75
Total

End Select

End Function