Private Sub Command1_Click()Dim a, b, c As Stringa = Text1.Textb = Text2.TextDo While (b <> 0)c = a Mod ba = bb = cLoopText3.Text = aEnd Sub