Module cmtoinches
    Sub main()
        Dim sinCentimeter, sinInches As Single

        Console.WriteLine("Enter the value in centimeters")
        sinCentimeter = Console.ReadLine

        sinInches = sinCentimeter / 2.5

        Console.WriteLine("In inches that's {0}", sinInches)

        Console.ReadLine()

    End Sub