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
......