Como somar os dígitos de um número em VB.NET usando o laço while - Solução para número inteiro de qualquer tamanho

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 numero As Integer
    Dim soma As Integer = 0

    ' vamos pedir um número inteiro positivo
    Console.Write("Informe um número inteiro positivo: ")
    ' lê o número informado
    numero = Int32.Parse(Console.ReadLine())

    ' enquanto o número for diferente de 0
    While numero <> 0
      ' adiciona à soma o resultado da divisão do número por 10
      soma = soma + (numero Mod 10)
      ' agora dividimos os número por 10 (divisão inteira) e continuamos
      numero = numero \ 10
    End While

    ' e mostramos o resultado
    Console.WriteLine("A soma dos dígitos é: " & soma)

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

End Module