Imports System

Public Module Module1

    Public Sub Main()

        Dim t As String = Math.Round(Convert.ToDecimal(0.599999999999998), 1, MidpointRounding.AwayFromZero)

        Console.WriteLine("Result is " + t)

    End Sub

End Module