Imports System

Public Module Module1

    Public Sub Main()

        dim x as single = 1.000001

        dim y as single = 0.000001

        dim result = x-y

        Console.WriteLine(result)

    End Sub

End Module