<XMP>
Sub PopupChr20_FF()
   Dim i
   Dim MsgChars

   MsgChars = "***** CHARS: "

   '----- LOOP
   For i = 32 To 255
      MsgChars = MsgChars + (Chr(i))
   Next
   
   MsgBox (MsgChars)
End Sub
</XMP>