Visual Basic 6 - mcm di due numeri

Qualcuno conosce un trucchetto matematico per calcolare l'mcm di 2 numeri senza implementari cicli troppo pesanti?

beh forse dovresti fare così, se i due numeri sono le variabili Primo e Secondo

Private Sub Form_Load()
Dim i As Long, j As Long, Primo As Integer, Secondo As Integer, Mcm As Integer
Primo = 6
Secondo = 8
For i = 1 To 10000000
For j = 1 To Primo * i
If Primo * i = Secondo * j Then
Mcm = Primo * i
MsgBox Mcm
GoTo Fine
End If
Next j
Next i
Fine:
End Sub

ho fatto 5 o6 prove e dovrebbe andare attento a che numeri metti pero' casomai si impalla tutto!!!