Obtener valor de x de la siguiente operación: x= b al cuadrado + la raíz cuadrada de b al cuadrado sabiendo que a= 1, b=3 y c=-4

Function operacion(a, b, c As Long)
operacion = (b ^ 2 + Sqr(b) - (4 * a * c)) / 2 * a
prueba = operacion
End Function

Me comentas 

Olvidé poner que esa operación se realizase en EXCEL 2003

No hay problema con la función

Function Calculavalor(a, b, c As Long)
x = (b ^ 2 + Sqr(b) - (4 * a * c)) / 2 * a
Calculavalor = x
End Function

valoras para finalizar saludos!!!