Example:

  1. Sub Main ()

    1. Dim I, Msg ' Declare variables.

      For I = Asc("A") To Asc("Z")          ' From A through Z.

      1. Msg = Msg & Chr(I)          ' Create a string.

      Next I

      MsgBox Msg          ' Display results.

    End Sub