Division by zero in vba error

I am trying to assign a variable in VBA but when the division is by zero i get an error.

I would like to replace the zero with a figure to pass the error.

dim Variable1 as double, Variable2 as double,
Variable1 = Range("A1).value
Variable2 = Range("A2).value

Dim PercentReq as double

PercentReq = Variable1/Variable2*100

"runtime error"
Division by Zero


Thanks for any help

Or in other words how can i get this spreadsheet formula to work in vba

=IFERROR(A1/A2*100,500)