Digits in a number VB.Net Exercise - Visual Basic Programming Course

Imports System
Public Class exercise38
    Public Shared Sub Main()
        Dim number As Integer
        Dim digit As Integer = 0
        Console.Write("Number? ")
        number = Convert.ToInt32(Console.ReadLine())

        If number < 0 Then
            Console.WriteLine("(Warning: it is a negative number)")
            number = -number
        End If

        While number > 0
            number = number / 10
            digit += 1
        End While

        If digit = 0 Then digit = 1
        Console.WriteLine("{0} digits", digit)
    End Sub
End Class