Расчет средней стоимости топлива

---

Я пытаюсь получить среднюю стоимость топлива, приобретенного за одну поездку.

Мои фрагменты кода выглядят следующим образом:

Private Sub calc()

        Dim 
            a, f1, f2, f3, f4, f5, f6 As Decimal
        Try
            f1 = CDec(IIf(tbTruckFuelPurchased.Text.Trim = "", 0D, tbTruckFuelPurchased.Text.Trim))
            f2 = CDec(IIf(tbReeferFuelPurchased.Text.Trim = "", 0D, tbReeferFuelPurchased.Text.Trim))
            f3 = CDec(IIf(tbDEFPurchased.Text.Trim = "", 0D, tbDEFPurchased.Text.Trim))
            f4 = CDec(IIf(tbGalsPurch.Text.Trim = "", 0D, tbGalsPurch.Text.Trim))
            f5 = CDec(IIf(tbREF_Gals.Text.Trim = "", 0D, tbREF_Gals.Text.Trim))
            f6 = CDec(IIf(tbFuelCostAvg.Text.Trim = "", 0D, tbFuelCostAvg.Text.Trim))
        Catch ex As Exception
            'If a calculation error occurs, show Error message box
            Dim frm As New MeMsgCalcError(ex, "Error in 'Calculation DIM Statement' Defining Area.")
            frm.Show()
        End Try


        'Calculate Average Cost of Fuel this Load
        Try
            a = f1 \ f4
            tbFuelCostAvg.Text = a.ToString("C2")
        Catch ex As Exception
            'If a calculation error occurs, show Error message box
            Dim frm As New MeMsgCalcError(ex, "Calculation Error in 'Average Cost of Fuel this Load.'")
            frm.Show()
        End Try

Это приводит к ошибкам.:
Ошибка BC30512 Вариант Строго По запрещает неявные преобразования из "десятичного" в "длинный".

Как отмечалось выше в сообщении об ошибке, опция Strict включена и должна быть включена.

Как я могу взять общее количество купленного топлива (tbTruckFuelPurchased (валюта)) и разделить общее количество купленных галлонов топлива (tbGalsPurch (целое число плюс 3 десятичных знака), чтобы получить среднюю стоимость за галлон? Очевидно, я ищу возвращаемое значение "деньги", округленное до 2 десятичных знаков.

Я не понимаю преобразования десятичного числа в длинное сообщение об ошибке.

Что я уже пробовал:

Код и попытки см. В разделе сообщение.

---