Imports System

Public Module Module1

    Public Sub Main()

        Dim amount1 as integer

        Dim amount2 as integer

        Dim amount3 as integer

        Dim Answer as string

        Dim Doubled as string

        Console.WriteLine("Please enter the first amount raised.")

        amount1= console.readline()

        Console.writeline("Please enter the second amount raised.")

        amount2= Console.readline()

        Console.writeline("Please enter the third amount raised.")

        amount3= Console.readline()

        Answer = amount1 + amount2 + amount3

        Console.writeline("The total amount raised will be £" & Answer)

        Doubled = answer*2

        Console.writeline("This will be doubled to £" & doubled)

    End Sub

End Module