Другая формула в выбранной ячейке не даст желаемых результатов в функции IF VBA

Question

Я немного новичок в VBA, и у меня есть код, как показано ниже. Этот код работает нормально, но есть одна проблема. Формула, которую мне нужно ввести в ячейку D30, должна совпадать с формулой, которую я установил в условии If (=D22/D21*100), или ячейкой D31 (=100 - D30), чтобы она работала. Это не сработает, если я сделаю наоборот.

Однако я просто хочу, чтобы значение ячейки (D30) равнялось результату вычисления формулы в If независимо от того, как я ввожу свою формулу.

Я попытался объявить переменную и привязал значение этой формулы к переменным -> не сработало.

Sub CheckMyAnswer()
    Dim i As Integer
    i = 0

    If Range("D30").Value = Range("D22").Value / Range("D21").Value * 100 Then
        i = i + 1
    End If
    If Range("D31").Value = 100 - Range("D30").Value Then
        i = i + 1
    End If

    MsgBox "You have " & i & " correct answer(s)"

    If i = 2 Then
        Range("C32").Value = "2. What is the Volume Share of Ha Noi beer in Can?"
        Range("C32").Font.Bold = True
        With Range("D33").Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
    End If
End Sub

Я хочу знать, независимо от того, как я ввожу формулу в ячейку D30, условие If все еще дает мне желаемый результат, пока оно удовлетворяет условию.