ببخشید یه کم دیر شد!!

Private Function bmm(ByVal int1 As Integer, ByVal int2 As Integer) As Integer
Dim a, b, r As Integer
b = int1
r = int2
Do While r <> 0
a = b
b = r
r = a Mod b
Loop
bmm = b
End Function

Private Function kmm(ByVal int1 As Integer, ByVal int2 As Integer) As Integer
kmm = int1 * int2 / bmm(int1, int2)
End Function