Imports System

Imports Microsoft.VisualBasic               

​

Public Module Module1

    Public Sub Main()

        Console.WriteLine("How many pounds of apples do you have?(number amount only)")

        Dim pds as double = console.readline()

        Console.Writeline("Please insert a money amount(number amount only)")

        Dim money as double = console.readline()

        Dim price as double = (1.7*pds)

        Dim over as double = (money-1.7*pds)

        Dim less as double = (1.7*pds-money)

        if money = (1.7*pds) then

            console.writeline("Thank you for your purchase.")

        else if money > (1.7*pds) then 

                console.writeline(FormatCurrency(over) & " is your change.")

            else if money < (1.7*pds) then 

                    console.writeline("You are missing " & FormatCurrency(less))

                end if 

    End Sub

End Module