Imports System

Public Module Module1

    Public Sub Main()

        Dim x as Single = Math.Pow(2, 24)

        Dim y as Single = x + 1

        Console.WriteLine(x.ToString("G29"))

        Console.WriteLine(y.ToString("G29"))

        Console.WriteLine(x = y)

    End Sub

End Module