doesnt work


Dim a, b As Integer

a = TextBox1.Text
b = TextBox2.Text

Try



While a <> b

If a > b Then a = a - b Else : b = b - a end if









End While
MsgBox("cmmdc este " & a)


Catch
MsgBox("an error occured")

End Try

End





gives me an "end of statement expected" error because of the if condition in the while loop
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories