Private Function Calc10() As Double ' Tangenteneck oder 
        ' Tangenteneckkörper
            Try
                Dim Teil1 = Tan(Bogenmass(Neugrad(W2))) / 2 'VB.Net rechnet mit 
                ' Bogenmass, nicht mit Winkeln
                Dim Teil2 = Neugrad(W2) * PI / 400          'Berechnung mit 
                ' Neugrad!
                Dim Fläche = Pow(CDbl(W1), 2) * (Teil1 - Teil2)
                Dim Ret = Runden(Fakt * Fläche, _
                  Dts.Dokument.Current.skalDecPlaces, 5)
                Return If(Not W3 = 0, Runden(Ret * W3, _
                Dts.Dokument.Current.skalDecPlaces, 5), Ret)
            Catch ex As Exception
                Return 0
            End Try
            Return 0
        End Function
 
        Private Function Neugrad(ByVal Altgrad As Double) As Double ' 
        ' Umrechnung in Gon
            Return Altgrad / 9 * 10
        End Function
 
        Private Function Bogenmass(ByVal Winkel As Double) As Double    ' 
        ' Umrechnung in Bogenmaß
            Return Winkel * PI / 180
        End Function

Danke für die Hilfe

Gruß Christian