Sum numbers Learn programming Visual Basic (VB.net)

Imports System
Public Class Exercise25
    Public Shared Sub Main()
        Dim number As Integer
        Dim sum As Integer = 0

        Do
            Console.Write("Number: ")
            number = Convert.ToInt32(Console.ReadLine())
            sum = number + sum
            If number <> 0 Then Console.WriteLine("Total: {0}", sum)
        Loop While number <> 0

        Console.WriteLine("Finished")
    End Sub
End Class