Public Sub All(dblA, dblB, dblC, dblAlpha, dblBeta, dblGamma)
 
    dblAlpha = dblAlpha * (3.14159265358979 / 180) 'Eingegebener Winkel wird 
    ' von Grad in Rad umgerechnet
    dblAlpha = Sin(dblAlpha) 'der Sinus wird gezogen
    Call Asin(dblAlpha) 'Sinus soll wieder in einen Winkel umgerechnet werden
    dblAlpha = dblAlpha * (180 / 3.14159265358979) 'Rad wir in Grad umgewandelt
 
End Sub
 
Public Sub Asin(dblWinkel)
 
    dblWinkel = Atn(dblWinkel / Sqr(-dblWinkel * dblWinkel + 1))
 
End Sub