Imports System

Public Module Module1

    Public Sub Main()

        Dim  amount1, amount2, amount3, amountf, amounts, amountt, amountun, amountdeux ,amounttrois ,total, total1 as double

        Console.WriteLine("Enter the first amount raised")

        amount1 = Console.Readline()

        Console.WriteLine("Enter the second amount raised")

        amount2 = Console.Readline()

        Console.WriteLine("Enter the third amount raised")

        amount3 = Console.Readline()

If amount1<=1000

    amountf= amount1 + 100

Else if amount1>=1000 And amount1<2000

    amountf = amount1 *2

Else if amount1 >2000

    amountun=amount1 - 2000

    amountf= 4000 + amountun

End if 

If amount2<=1000

    amounts= amount2 + 100

Else if amount2>=1000 And amount2<2000

    amounts = amount2 *2

Else if amount2 >2000

    amountdeux=amount2 - 2000

    amounts= 4000 + amountdeux

End if 

If amount3<=1000

    amountt= amount3 + 100

Else if amount3>=1000 And amount3<2000

    amountt = amount3 *2

Else if amount3 >2000

    amounttrois=amount3 - 2000

    amountt= 4000 + amounttrois

End if 

        total = amount1 + amount2 + amount3

        total1 = amountf + amounts + amountt

        Console.WriteLine("a total of $" & total & " was raised")

        COnsole.Writeline("With the company bonus, this is $" & total1)

​

    End Sub

End Module