Imports System

Imports System.Xml

Public Module Module1

    Public Sub Main()

        Dim freight as decimal

        Dim LineSum as decimal = -61.26

        Dim TaxAmount as decimal = 64.26

        Dim CF6 as string = "-3.00"

        Dim objectValue as string

        objectValue = (New XmlDocument).CreateNavigator().Evaluate("(-61.26 + 0 + 64.26) + -3")

        Console.WriteLine("Example Problem: " + objectValue)

        objectValue = (New XmlDocument).CreateNavigator().Evaluate("concat(substring-before(-61.26 + 0 + 64.26, '.'), '.', substring(substring-after(-61.26 + 0 + 64.26, '.'), 1,2)) - 3")

        Console.WriteLine("Truncated Decimal Result: " + objectValue)

    End Sub

End Module