Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = InputBox("Enter")

b = InputBox("Enter")

a1 = a

b1 = b

If a < b Then

a = a + b

b = a - b

a = a - b

End If

Do

c = a Mod b

If c = 0 Then Exit Do

a = b

b = c

Loop

Print "BMM: "; b

Print "KMM: "; a1 * b1 / b

End Sub