Wants Wrong With my loop Code (Yoda)

[yoda]

Private Sub form_Activate
Loop Until 200
If 200 Then End
End Sub

[Ben3eeE]

Dim variable As Integer
Do Until variable = 2
MsgBox("loop")
variable = variable + 1
Loop

[yoda]

Dim variable As Integer
Do Until variable = 2
MsgBox("loop")
variable = variable + 1
Loop

thanks I ma still in high school so i'm a new to this stuff

[Killer42]

Dim variable As Integer
Do Until variable = 2
MsgBox("loop")
variable = variable + 1
Loop

Wouldn't it be simpler to code this as a For loop? For example...

Dim variable As Long
For variable = 0 To 1
  MsgBox("loop")
Next