VBA. Напишите процедуру на языке VBA, которая определяет сократимость дроби a/b (b≠0) . Вычисление наибольшего общего делителя (НОД) чисел a и b оформить в виде функции.

[Lizka]

Помогите ,пожалуйста, с написанием программы на языке VBA.
Вот условие:
Напишите процедуру на языке VBA, которая определяет сократимость дроби a/b (b≠0) . Вычисление наибольшего общего делителя чисел a и b оформить в виде функции.
Исходные данные: 1. a=2, b=0 1 Результат: 1. Неверно введено b
2. a=3, b=5
3. a=6, b=8 2. Дробь 3/5 не сократима
3. Дробь 6/8 сократима на 2



Вот немного начала (может и не правильно):
Function НОД(a, b)
While a <> b
If a > b Then
a = a - b
Else
b = b - a
End If
Wend
НОД = a
End Function

Sub List6_11()
Dim a As Long, b As Long, НОД As Variant

a = CDbl(InputBox("Введите a", "Исходные данные"))
b = CDbl(InputBox("Введите b", "Исходные данные"))
If b = 0 Then MsgBox "Неверно введено b"
If НОД =(a,b) Then MsgBox "Дробь" & a / b & ("сокротима на ") & f
End Sub

[EducatedFool]

А загуглить - лень?
специально выкладывал эту функцию у себя на сайте
Функция НОД (наибольший общий делитель) на VBA

[Lizka]

у меня не получается с MsgBox ,да и вообще не правильно я написала программу, не сильна в VBA