Ошибка с типом данных Currency

  Dim F As String, I As String, O As String
    Dim Разряд As Integer, Количество_часов As Integer
    Dim Ставка As Currency, Зарплата As Currency
    Dim D1 As Currency, D2 As Currency, D3 As Currency, D4 As Currency
    Dim D5 As Currency, D6 As Currency, D7 As Currency, D8 As Currency
    Dim D9 As Currency 'D1-D9 - надбавки
    Dim D As Currency  'Сумма надбавок
    Dim Подоходный_налог As Currency, Пенсионный_налог As Currency, Зарплата_с_надбавками As Currency
    Dim Итог As Currency
    Dim Flag As Boolean
    Private Sub Form_Load()
 
        F = InputBox("Введите Вашу фамилию", "Регистрация")
        I = InputBox("Введите Ваше имя", "Регистрация")
        O = InputBox("Введите Ваше отчество", "Регистрация")
        Me.Text = "Зарплата учителя." + F + " " + I + " " + O
        lblРегистрация.Text = I + " " + O + " ! Введите, пожалуйста, свои данные."
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Разряд = Val(TextBox1.Text)
        Количество_часов = Val(TextBox2.Text)
        Flag = True
        Select Case Разряд
            Case 8
                Ставка = 1500
            Case 9
                Ставка = 1667
            Case 10
                Ставка = 1873
            Case 11
                Ставка = 2057
            Case 12
                Ставка = 2263
            Case 13
                Ставка = 2492
            Case 14
                Ставка = 2739
            Case 15
                Ставка = 3020
            Case Else                  ' Разряд выходит за допустимые пределы
                MsgBox("Вы неверно ввели разряд ", vbCritical + vbOKOnly, "Ошибка!")
                Flag = False
                TextBox1.Text = " "
                TextBox2.Text = " "
                txtНачислено.Text = " "
                txtПодоходный_налог.Text = " "
                txtПенсионный_налог.Text = " "
                ' Очистка всех текстовых полей
        End Select
        If Flag = True Then
            Зарплата = Ставка * Количество_часов / 18
            D = 0 : D1 = 0 : D2 = 0 : D3 = 0 : D4 = 0 : D5 = 0 : D6 = 0 : D7 = 0 : D8 = 0
            D9 = 0
            If Chk1.Text = 1 Then D1 = 0.12 * Зарплата 'Надбавка за вредность
            If Chk2.Text = 1 Then D2 = 0.1 * Ставка    'Надбавка за 
            'заведование кабинетом
            If Chk3.Value = 1 Then D3 = 0.15 * Ставка   'Надбавка за участие в 
            'эксперименте
            If Chk4.Value = 1 Then D4 = 0.2 * Ставка    'Надбавка за классное 
            'руководство
            If Opt2.Value = True Then D5 = 0.3 * Зарплата   'Отличник народного 
            'просвещения
            If Opt3.Value = True Then D6 = 0.5 * Зарплата   'Заслуженный учитель 
            'России
            If Opt4.Value = True Then D7 = 0.5 * Зарплата   'Ученая степень
            D8 = 0.1 * Зарплата                    'Надбавка за проверку тетрадей
            D9 = 100                                      'Надбавка за методическую литературу
            D = D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9           'Все надбавки
            Зарплата_с_надбавками = Зарплата + D          'Зарплата с надбавками
            txtНачислено.Text = Str(Format(Зарплата_с_надбавками, "0.00"))
            'Форматный вывод
            'с двумя знаками после запятой
            Подоходный_налог = 0.13 * Зарплата_с_надбавками
            txtПодоходный_налог.Text = Str(Format(Подоходный_налог, "0.00"))
            Пенсионный_налог = 0.01 * Зарплата_с_надбавками
            txtПенсионный_налог.Text = Str(Format(Пенсионный_налог, "0.00"))
            Итог = Зарплата_с_надбавками - Подоходный_налог - Пенсионный_налог
            txtК_выдаче.Text = Str(Format(Итог, "0.00"))
        End If
 
    End Sub
End Class