Imports System 

Public Module Module1

    Public Sub Main()

        Dim x = 10

        Dim y = 14.928 * Math.Exp(-0.00004 * x)

        Console.WriteLine(y)

    End Sub

End Module