Imports System

Public Module Module1

    Public Sub Main()

        dim n as integer = 0

        console.Writeline("input a number")

        n = console.ReadLine()

        if n < 10 then

            console.WriteLine("number of digits is : 1")

        else if n < 100 then

                console.WriteLine("number of digits is : 2")

        else if n < 1000 then

                console.WriteLine("number of digits is : 3")

        else if n < 10000 then

                console.WriteLine("number of digits is : 4")

        else if n < 100000 then

                            console.WriteLine("number of digits is : 5")

        else if n < 1000000 then

                        console.WriteLine("number of digits is : 6")

                        end if 

    End Sub

End Module