Como testar se dois números são números amigos em VB.NET - Escreva um programa VB.NET que - Desafio de Programação Resolvido em VB.NET

Informe o primeiro número: 220
Informe o segundo número: 284
Os dois números são amigos

Informe o primeiro número: 158
Informe o segundo número: 932
Os números não são amigos.

Informe o primeiro número: 1210
Informe o segundo número: 1184
Os dois números são amigos

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 n1, n2, soma As Integer

    ' vamos ler os dois números
    Console.Write("Informe o primeiro número: ")
    n1 = Int32.Parse(Console.ReadLine())
    Console.Write("Informe o segundo número: ")
    n2 = Int32.Parse(Console.ReadLine())

    ' vamos somar todos os divisores próprios do
    ' primeiro número
    soma = 0
    For i As Integer = 1 To (n1 - 1)
      If n1 Mod i = 0 Then
        soma = soma + i
      End If
    Next

    ' se essa soma for igual ao valor de n2 nós já temos a
    ' primeira condição
    If soma = n2 Then
      ' zera a soma
      soma = 0
      For i As Integer = 1 To (n2 - 1)
        If n2 Mod i = 0 Then
          soma = soma + i
        End If
      Next

      ' esta soma é igual ao valor de n1?
      If soma = n1 Then
        Console.WriteLine("Os dois números são amigos.")
      Else
        Console.WriteLine("Os números não são amigos.")
      End If
    Else
      Console.WriteLine("Os números não são amigos.")
    End If

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

End Module