' 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