How can I write a VBA code to evaluate this formula

Y = alpha*EXP(-alpha*(X-U)-EXP(-alpha(X-U)))