Example - While Wend Statement

  1. Sub Main

    1. Const Max = 5

      Dim A(5) As String

      A(1) = "Programmer"

      A(2) = "Engineer"

      A(3) = "President"

      A(4) = "Tech Support"

      A(5) = "Sales"

      Exchange = True

      While Exchange

      1. Exchange = False

        For I = 1 To Max

        1. MsgBox A(I)

        NextI

      Wend

    End Sub