Sub abc()
a = 16
b = 4
x = 0.903
Pi = 4 * Atn(1)
y = (Log(1 / Tan(Pi * x / a)) / Log(10) + a) / (Atn((125.64 ^ 2)) ^ (b + 1))
MsgBox y
End Sub
Sub abc()
a = 16
b = 4
x = 0.903
Pi = 4 * Atn(1)
y = (Log(1 / Tan(Pi * x / a)) / Log(10) + a) / (Atn((125.64 ^ 2)) ^ (b + 1))
MsgBox y
End Sub