Ayúdame a escribir un método para encontrar el mínimo común múltiplo de dos números, VB

Función privada f(byavl m como entero, byval n como entero) como entero

Dim a como entero, b como entero, c como entero

a = m : b = n

Hacer mientras a gt 0 y b gt 0

c = a Mod b

a = b

b = c

bucle

función final

Subcomando privado1_Click()

Dim m Como entero, n Como entero , S como entero

m = inputbox("Ingrese el primer entero positivo")

n = inputbox("Ingrese el segundo entero positivo")

S =m*n/f(m,n)

fin del sub