Unlimited sum VB.Net Exercise - Visual Basic Programming Course

Imports System
Imports System.Collections
Namespace Comands
    Class Program
        Private Shared Sub Main()
            Dim [exit] As Boolean = False
            Dim answer As String
            Dim mylist As ArrayList = New ArrayList()
            Dim total As Integer = 0

            Do
                Console.Write("Number or command? ")
                answer = Console.ReadLine()

                If answer.ToLower() = "view" Then
                    Console.WriteLine("Entered numbers: ")

                    For Each number As Integer In mylist
                        Console.WriteLine(number)
                    Next
                ElseIf answer.ToLower() = "sum" Then
                    Console.WriteLine("Sum: {0}", total)
                ElseIf answer.ToLower() = "end" Then
                    [exit] = True
                Else

                    Try
                        Dim number As Integer = Convert.ToInt32(answer)
                        mylist.Add(number)
                        total += number
                    Catch
                        Console.WriteLine("Command is not recognized by the system")
                    End Try
                End If
            Loop While Not [exit]
        End Sub
    End Class
End Namespace