Função em Visual Basic para calcular o Menor Múltiplo Comum

X: Y : 

function mmc(x as long,y as long) as long
dim maior as long,menor as long,m as long
 if x>y then
   maior = x
   menor = y
 else
   maior = y
   menor = x
 end if
 m = maior
 do while m MOD menor <>0
  m=m+maior
 loop 
 mmc = m
end function