Please see below

Public Function Increment_cash_recp_number() As Integer

cash_recp_number= cash_recp_number +1

End Function

Public Function getTotals(ByVal recipNo As Integer, ByVal vehicle As String) As Decimal

Dim tVals As totalValues

tVals = Values(recipNo)

Return...

I have created one more forum item with details with same subject as custom code.

Please check and suggest