vba 最大公約数の求め方について

Question

ExcelVBAでfor文を使って３つの最大公約数を求めるプログラムを書いています。Do-Loop文やWhile文などは使わずに書きたいです。下記のようなプログラム（まずは a が一番大きい時のみ考えています）で i の最大値を求めようとしたのですが、どの数字を入力しても１が表示されてしまいます。if 文の後にはどのようなコードを書けばいいのか、それとも根本的に違うのか教えていただきたいです。
よろしくお願いします。

Sub a()

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

a = InputBox("a")
b = InputBox("b")
c = InputBox("c")

Cells(1, 1) = a
Cells(2, 1) = b
Cells(3, 1) = c

For i = a To 1 Step -1
  If (0 = a Mod i) And (0 = b Mod i) And (0 = c Mod i) Then
   Cells(4, 1) = WorksheetFunction.Max(i)
  End If
Next i

End Sub

Answer 1

以下のようにしてください。

For i = a To 1 Step -1
  If (0 = a Mod i) And (0 = b Mod i) And (0 = c Mod i) Then
   Cells(4, 1) = i
   Exit For
  End If
Next i

Answer 2

ループしないという事なら再帰でしょうね。
【Excel VBA】再帰呼出しで最大公約数を求める(ユークリッドの互除法)

※学習という事なら３つのパターンはご自身で。そうでないなら関数を利用する方法があります。
【EXCEL：GCD・LCM関数】最大公約数・最小公倍数を求めたい