¡VB escribe programas de funciones trigonométricas! ayúdame

Opción1.Caption = "sin"

Opción2.Caption = "cos"

Opción3.Caption = "bronceado"

Me.Caption = "Ingrese el ángulo"

End Sub

Private Sub Option1_Click()

Label1.Caption = "valor sin" & Formato (Sin(Text1.Text), "0.000")

End Sub

Private Sub Option2_Click()

Label1.Caption = "valor cos" & Formato (Cos(Text1.Text), "0.000")

End Sub

Private Sub Option3_Click()

Label1.Caption = "valor de bronceado" & Formato (Tan(Text1.Text), "0.000")

End Sub