Ler um número inteiro, separar seus dígitos e imprimí-los individualmente separados por espaços - Desafio de Programação Resolvido em VB.NET

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim valor, primeiro, segundo, terceiro As Integer

    ' vamos solicitar ao usuário que informe um valor inteiro
    ' na faixa 100 a 999 (incluindo)
    Console.Write("Informe um valor inteiro de três dígitos: ")
    valor = Int32.Parse(Console.ReadLine())

    ' vamos verificar se o valor está na faixa permitida
    If (valor < 100) Or (valor > 999) Then
      Console.WriteLine("Valor fora da faixa permitida")
    Else
      ' vamos extrair os dígitos indidualmente, da esquerda para a direita
      ' vamos obter o primeiro dígito
      primeiro = valor \ 100
      valor = valor Mod 100