Visual Basic - como obtener la funcion secante y cosecante?

Bueno, esa es mi duda, quiero saber como puedo sacar la funcion secante y cosecante...Gracias


A.C

Cosec = 1 / Sin(Angulo)
Sec = 1 / Cos(Angulo)

Option Explicit
Dim Alfa As Double
Dim resultado As String
***Secante
Private Sub Command5_Click()
Alfa = 3.14159265358979 * (Val(Text1.Text) + Val(Text2.Text) / 60 + Val(Text3.Text) / 3600) / 180
resultado = Str$(1 / Cos(Alfa))
Text4.Text = resultado
End Sub
****Cosecante
Private Sub Command6_Click()
Alfa = 3.14159265358979 * (Val(Text1.Text) + Val(Text2.Text) / 60 + Val(Text3.Text) / 3600) / 180
resultado = Str$(1 / Sin(Alfa))
Text4.Text = resultado
End Sub
Donde
text1=cateto opuesto
test2=cateto adyacente
text3= hipotenusa