VBA - Trying to get the root of a function

Question

I got this equation to solve in VBA:

Energy = y + (0.5) ^ 2 / ( 2 * 9.81 * y ^ 2 )

but I got the