Как сделать эту работу без использования венгерских обозначений, таких как int или dec для .NET

---

Мне нужно, чтобы приведенный ниже код работал без использования венгерских обозначений, таких как int или dec.
Сначала я использовал его, но мой инструктор не любит, когда мы используем венгерскую нотацию. Так что он работает с венгерской нотацией, но теперь он не работает без нее. Я знаю, что в .NET смысл использования не венгерских кодов заключается в удобочитаемости, но на самом деле это просто усложняет мне задачу.

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

Option Strict On
Public Class ChangeCal
    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles dollars.TextChanged

    End Sub

    Private Sub calculate_Click(sender As Object, e As EventArgs) Handles calculate.Click
        Dim dpaid As Decimal
        Dim dowe As Decimal
        Dim dchangedue As Decimal
        Dim dQuarters As Decimal
        Dim dDimes As Decimal
        Dim dNickels As Decimal
        Dim dPennies As Decimal
        Dim dTempValue As Decimal
        Dim dDollars As Decimal

        dpaid = CDec(Val(paid.Text))
        dowe = CDec(Val(owe.Text))
        dchangedue = dpaid - dowe


        If Not IsNumeric(paid.Text) Then
            MsgBox("Invalid Due Amonut Entry", MsgBoxStyle.Critical)

        End If

        If Not IsNumeric(owe.Text) Then
            MsgBox("Invalid Due Amonut Entry", MsgBoxStyle.Critical)

        End If

        dValue = CInt(dchangedue * 100)

        dDollars = dValue \ 100
        dollars.Text = CType(dDollars, )

        dValue = dValue Mod 100
        dQuarters = dValue \ 25
        quarters.Text = CType(dQuarters, )

        dValue = dValue Mod 25
        dDimes = dValue \ 10
        dimes.Text = CType(dDimes, )

        dValue = dValue Mod 10
        dNickels = dValue \ 5
        nickels.Text = CType(dNickels, )

        dValue = dValue Mod 5
        dPennies = dTempValue
        pennies.Text = CType(dPennies, )

        If dpaid < dowe Then

            MsgBox("You Still Owe=" & Format(decchangedue, "Currency"))
        End If

    End Sub

    Private Sub clear_Click(sender As Object, e As EventArgs) Handles clear.Click
        paid.Clear()
        owe.Clear()
        dollars.Clear()
        quarters.Clear()
        dimes.Clear()
        nickels.Clear()
        pennies.Clear()
    End Sub

    Private Sub xit_Click(sender As Object, e As EventArgs) Handles xit.Click
        Me.Close()
    End Sub
End Class

---