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