Imports System

Public Module Module1

    Public Sub Main()

        Dim num, sum As Integer

        Console.WriteLine("Please enter 3 numbeers")

        For count = 1 To 3

        num = Console.ReadLine()

        sum = sum + num

    Next

    Console.WriteLine("The sum of the 3 numbers is" & sum)

    Console.ReadLine()

    End Sub

End Module