TxtBoxMass.Text = System.Math.Round(GetMass(swModel), 3) & " kg"

Imports SldWorks
 
Module GetMass
    Public Function GetMass(ByRef swModel As IModelDoc2) As Double
        Try
 
            Dim swModelExtension As IModelDocExtension
            Dim Accuracy As Integer = 2
            Dim Status As Integer
            Dim MassProperties As Object        ' 5. Eintrag ist Masse in kg
            Dim Mass As Double
 
            swModelExtension = swModel.Extension
            MassProperties = swModelExtension.GetMassProperties(Accuracy, _
              Status)
            Mass = MassProperties(5)
 
            Return Mass
 
        Catch ex As Exception
            Debug.Assert(False)
            Trace.WriteLine("Fehler: Wo: " & _
                ex.StackTrace & " Was: " & ex.Message)
        Finally
        End Try
    End Function
End Module