[أنا واحد تانى]

Dim A As byte = 1
Do While A <=1
If A <> 7 Then
MsgBox(A)
A = A + 2
Else
A = A + 2
End If
Loop