Como calcular MMC em VB.NET - Como calcular o Mínimo Múltiplo Comum na linguagem VB.NET

Imports System

Module Program
  Sub Main(args As String())
    ' variáveis usadas para resolver o problema
    Dim num1, num2, maior, mmc As Integer

    ' vamos ler o primeiro número
    Console.Write("Informe o primeiro número: ")
    num1 = Int32.Parse(Console.ReadLine())

    ' vamos ler o segundo número
    Console.Write("Informe o segundo número: ")
    num2 = Int32.Parse(Console.ReadLine())

    ' agora escolhemos o maior número
    If num1 > num2 Then
      maior = num1
    Else
      maior = num2
    End If

    ' e entramos em um laço while
    While (True)
      If ((maior Mod num1 = 0) And (maior Mod num2 = 0)) Then
        mmc = maior
        Exit While
      End If

      ' aumentamos o maior em 1
      maior = maior + 1
      End While

    ' e mostramos o resultado
    Console.WriteLine("O MMC dos dois números é: " & mmc)

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