Определяю переменную Ag1как  Double

Dim Ag1 As Double

Пытаюсь присвоить переменной Ag1 значение, вводимое в textbox tbAg1Pr

Set Ag1 = Val(tbAg1Pr.Value)

чтобы потом эту переменную использовать в формуле

Cells(i, 7).Value = 5.845 * Ag1

При запуске макроса пишет "Object required" и выделяет Val
При попытке использовать напрямую значение tbAg1Pr

Cells(i, 7).Value = 5.845 * tbAg1P.Value

выдаёт "Type mismatch"

Подскажите. пожалуйста, в чём ошибка?