Imports System

'Sharad Patel

Public Module Module1

    Public Sub Main()

        Dim inputNum, hun, ten, one As Integer 

        Console.WriteLine("Enter a three digit number:")

        inputNum = Console.ReadLine()

        Call splitThreeDigit(inputNum, hun, ten, one)

    End Sub

    Private Sub splitThreeDigit(ByVal num As Integer, ByRef hundreds As Integer, ByRef tens As Integer, ByRef ones As Integer) 

        num = num 

        hundreds = num \ 100

        tens = (num Mod 100) \ 10 

        ones = num Mod 10

        Console.WriteLine("The entered number is " & num)

        Console.WriteLine("The hundreth value of this number is " & hundreds)

        Console.WriteLine("The tenth value of this number is " & tens)

        Console.WriteLine("The one value of this number is " & ones)

    End Sub

End Module