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