Example - Asc Function

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