Ler um número inteiro na faixa 0-999 e mostrar a soma de seus dígitos - Desafio de Programação Resolvido em VB.NET

Informe um valor inteiro (0-999): 523
A soma dos dígitos é: 10

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos solicitar ao usuário que informe um valor inteiro
    ' na faixa 0 a 999 (incluindo)
    Console.Write("Informe um valor inteiro (0-999): ")

    ' vamos ler o valor informado
    Dim valor As Integer = Int32.Parse(Console.ReadLine())

    ' vamos verificar se o valor está na faixa permitida
    If (valor < 0) Or (valor > 999) Then
      Console.WriteLine(vbCrLf & "Valor fora da faixa permitida" & vbCrLf)
    Else
      ' vamos obter o terceiro dígito
      Dim terceiro As Integer = valor Mod 10
      ' obtém os digitos restantes
      valor = valor \ 10

      ' vamos obter o segundo dígito
      Dim segundo As Integer = valor Mod 10
      ' obtém os digitos restantes
      valor = valor \ 10

      ' vamos obter o primeiro dígito
      Dim primeiro As Integer = valor Mod 10
      ' obtém os digitos restantes
      valor = valor \ 10

      ' vamos obter a soma dos dígitos
      Dim soma As Integer = terceiro + segundo + primeiro

      ' vamos mostrar o resultado
      Console.WriteLine(vbCrLf & "A soma dos dígitos é: " & soma)
    End If

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

End Module