' hyperbolic arc sineFunction ASinH(value As Double) As Double    ASinH = Log(value + Sqr(value * value + 1))End Function' hyperbolic arc cosine' error if NUMBER is inside the range [-1,1]Function ACosH(value As Double) As Double    ACosH = Log(value + Sqr(value * value - 1))End Function' hyperbolic arc tangent' error if value is zeroFunction ATanH(value As Double) As Double    ATanH = Log((1 / value + 1) / (1 / value - 1)) / 2End Function' hyperbolic arc cotangentFunction ACotH(value As Double) As Double    ACotH = Log((value + 1) / (value - 1)) / 2End Function' hyperbolic arc secant' error if value is outside the range [-1,1]Function ASecH(value As Double) As Double    ASecH = Log((Sqr(1 - value * value) + 1) / value)End Function' hyperbolic arc cosecantFunction ACscH(value As Double) As Double    ACscH = Log((Sgn(value) * Sqr(1 + value * value) + 1) / value)End Function