Como testar se um número é perfeito usando VB.NET - Exercícios Resolvidos de VB.NET

Informe um número inteiro: 6
O número informado é um número perfeito.

Imports System

Module Program
  Sub Main(args As String())
    ' variáveis usadas para resolver o problema
    Dim numero As Integer ' número informado pelo usuário 
    Dim soma As Integer = 0 ' vai guardar a soma dos dígitos

    ' vamos pedir para o usuário informar o valor inteiro
    Console.Write("Informe um número inteiro: ")
    ' lê o número informado
    numero = Int32.Parse(Console.ReadLine())

    ' um laço que começa em 1 e até o número informado - 1
    For i As Integer = 1 To numero - 1 Step 1
      ' o número é divisível pelo valor de i?
      If (numero Mod i = 0) Then
        soma = soma + i ' aumenta a soma
      End If
    Next

    ' a soma é igual ao número informado?
    If (soma = numero) Then
      Console.WriteLine("O número informado é um número perfeito.")
    Else
      Console.WriteLine("O número informado não é um número perfeito.")
    End If

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