VERSION 2.00
Begin Form Form1 
   Caption         =   "Form1"
   Height          =   8745
   Left            =   1035
   LinkTopic       =   "Form1"
   ScaleHeight     =   8340
   ScaleWidth      =   7365
   Top             =   1140
   Width           =   7485
End
Sub Form_Click ()
    Dim I, Msg  ' Declare variables.
    For I = Asc("A") To Asc("Z")    ' From A through Z.
    'ASC() coverts character to ascii value
    'chr() converts Asxii value back to characters
	Msg = Msg & Chr(I)  ' Create a string.
    Next I
    MsgBox Msg  ' Display results.


End Sub