Imports System

​

Public Module Module1

​

    dim balance as integer = 25

​

    Public Sub Main()

        dim answer as string

        dim amount as integer

        dim response as integer

        console.writeline("Enter D, C, W, or X")

        answer = console.readline()

        do until answer = "X"

            if answer = "D" then

                console.writeline("Enter deposit amount")

                amount = console.readline()

                response = deposit(amount)

            else if answer = "W" then

                console.writeline("Enter withdraw amount")

                response = withdraw(amount)

            else if answer = "C" then

                response = checkbalance()

            else

                console.writeline("Goodbye")

            end if

        loop

    End Sub

​

    function deposit(amount)

        balance = balance + amount

        return balance

    end function

​

    function withdraw(amount)

        if balance >= amount then

            balance = balance - amount

            return balance

        else

            return false

        end if

    end function

​

    function checkbalance()

        return balance

    end function

End Module

​