PC-DMIS Help Center - 2022.1

Click here to see this page in full context

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