' hyperbolic sineFunction SinH(value As Double) As Double    Dim temp As Double    temp = Exp(value)    SinH = (temp - 1 / temp) / 2End Function' hyperbolic cosineFunction CosH(value As Double) As Double    Dim temp As Double    temp = Exp(value)    CosH = (temp + 1 / temp) / 2End Function' hyperbolic tangentFunction TanH(value As Double) As Double    Dim temp As Double    temp = Exp(value)    TanH = (temp - 1 / temp) / (temp + 1 / temp)End Function' hyperbolic cotangentFunction CotH(value As Double) As Double    Dim temp As Double    temp = Exp(value)    CotH = (temp + 1 / temp) / (temp - 1 / temp)End Function' hyperbolic secantFunction SecH(value As Double) As Double    Dim temp As Double    temp = Exp(value)    SecH = 2 / (temp + 1 / temp)End Function' hyperbolic cosecantFunction CscH(value As Double) As Double    Dim temp As Double    temp = Exp(value)    CscH = 2 / (temp - 1 / temp)End Function