[COLOR=DarkSlateGray][B]Private Sub Main()
Dim sinus1#, valeurX1#, valeurY1#
On Error Resume Next
valeurX1 = CDbl(TextreelX1.Text) - CDbl(TexttehoriqueX1.Text)
valeurY1 = CDbl(TextreelY1.Text) - CDbl(TexttehoriqueY1.Text)
If Err.Number <> 0 Then MsgBox "Au moins une donnée incorrecte.": Exit Sub
On Error GoTo 0
If valeurY1 = 0 Or Abs(valeurY1) > Abs(valeurY1) Then MsgBox "L'arc cherché n'existe pas.": Exit Sub
sinus1 = valeurX1 / valeurY1
sinus1 = ASN(sinus1)
MsgBox sinus1
End Sub[/B][/COLOR]