Example - Chr Function

1. Sub ChrExample ()

   1. Dim X, Y, Msg, NL

      NL = Chr(10)

      For X = 1 to 2

      1. For Y = Asc("A") To Asc("Z")

         1. Msg = Msg & Chr(Y)

         Next Y

         Msg = Msg & NL

      Next X

       

      MsgBox Msg

   End Sub