Example:

  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