Imports System

Public Module Module1

    Public Sub Main()

        ' Author: Fennik Bowman

        ' Date: 04.21.2021

        Dim numberEntered As Integer

        Dim onesDigit As Integer

        Dim tensDigit As Integer

        Dim hundredsDigit As Integer

        numberEntered = Console.ReadLine()

        If numberEntered < 10 Then

            Console.WriteLine( "The first digit is :  " & numberEntered)

        ElseIf numberEntered < 100 Then

            Call TwoDigits(numberEntered, tensDigit, onesDigit)

            Console.WriteLine("The first digit is :" & tensDigit & "\n" & "The second digit is: " & onesDigit)

        ElseIf numberEntered < 1000 Then

            Call ThreeDigits(numberEntered, hundredsDigit, tensDigit, onesDigit)

            Console.WriteLine("The first digit is: " & hundredsDigit &"\n" & " The second digit is : " & tensDigit & "\n" & " The third digit is " & onesDigit)

            Else

            Console.WriteLine("Invalid Entry")

        End If

    End Sub

    ' The digits of a two-digit number are returned in separate parameters

    Sub TwoDigits(ByVal num As Integer, ByRef firstDigit As Integer, ByRef secondDigit As Integer)

        firstDigit = num \ 10

        secondDigit = num Mod 10

    End Sub

    'The digits of a three-digit number are returned in separate parameters

    Sub ThreeDigits(ByVal num As Integer, ByRef firstDigit As Integer, ByRef secondDigit As Integer, ByRef thirdDigit As Integer)

        firstDigit = num \ 100

        num = num Mod 100

        Call TwoDigits(num, secondDigit, thirdDigit)

    End Sub

End Module