Module Module1

    Sub Main()

        Dim valueOne As Integer
        Dim valueTwo As Integer
        Dim valueThree As Integer

        Try

            System.Console.WriteLine("Please Enter A Whole Number: ")
            valueOne = Integer.Parse(Console.ReadLine())

            System.Console.WriteLine("Please Enter Another Whole Number: ")
            valueTwo = Integer.Parse(Console.ReadLine())

            valueThree = valueOne + valueTwo

            If (valueThree > 0) Then

                System.Console.WriteLine("The Sum of ValueOne: {0} and ValueTwo: {1} is Equal to: {2}", valueOne, valueTwo, valueThree)

            Else

                System.Console.WriteLine("Both Values were Zero!")
            End If

            'Handle exception generated by user input entered in 
            'the wrong format
        Catch ex As System.FormatException

            Console.WriteLine("You didn't enter a Whole Number!")
        End Try

        Console.WriteLine(vbCrLf + "Please Press any Key to Exit")
        Console.ReadKey()

    End Sub
End Module