Остаток от деления целой части a на целую часть b - VBA

Dim a, b, c, x, y As Double
x = Cells(5, 2).Value
y = Cells(6, 2).Value
a = Log(Abs(x + y))
b = Sqr(x - y) / Sqr(x ^ 2 + 2)
Cells(7, 2).Value = a
Cells(8, 2).Value = b
Cells(9, 2).Value = Int(a)
Cells(10, 2).Value = Int(b)
IF B=0 THEN MSGBOX"ЛАЖА В ДАННЫХ!":EXIT SUB
c = a Mod b (в этой строке выдает ошибку, потому b=0)
Cells(11, 2).Value = c