Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Enter a 3 digit number")

        Dim MyNum as Integer = Console.Readline

        Dim FirstDigit as Integer = MyNum \ 100 

        Dim SecondDigit as Integer = ((MyNum Mod 100) \ 10)

        Dim ThirdDigit as Integer = MyNum Mod 10

        Console.Writeline(MyNum & " In digits is: " & FirstDigit & ", 100s " & SecondDigit & ", 10s " & ThirdDigit & ", 1s ")

    End Sub

End Module