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

Informe um valor inteiro de três dígitos: 398
Os dígitos separados são: 3 9 8

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

      ' vamos obter o segundo dígito
      segundo = valor \ 10
      valor = valor Mod 10

      ' vamos obter o terceiro valor
      terceiro = valor

      Console.WriteLine("Os dígitos separados são: " & primeiro &
        " " & segundo & " " & terceiro)
    End If

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module