Imports System

Public Module Module1

    Public Sub Main()

        Dim number as Integer

        Dim total as double = 0

        For i = 1 to 3

        Console.writeline("Enter a number")

        number = Console.ReadLine()

        total = total + number

    next

    Console.writeline("Your total is " & total)

    Console.writeline("Your average is " & total/3)

    End Sub

End Module