Imports System

Public Module Module1

    Public Sub Main()

        Dim n1 as decimal

        Dim s1 as string

        Dim w1 as integer

        s1  = console.readline()

        try

            n1 = Convert.ToDecimal(s1)

            w1  =n1

            Console.WriteLine("OK";w1;n1)

            exit try

        catch

            Console.WriteLine("Error")

            exit try

        finally

                    console.writeline("This always runs")

        end try

        exit sub

        'Dim n1 as decimal 

        n1 = 24681357

        Dim lastDigit as integer

        Console.WriteLine( n1)

        lastDigit = n1 mod 10

        Console.WriteLine( lastDigit)

        n1 = n1 - lastDigit

        Console.WriteLine( n1)

        n1 = n1 /10

        Console.WriteLine( n1)

        'turn this into a loop and you can get all the digits individually

    End Sub

End Module