Sub Main()
   Dim i, msg
   For i = Asc("A") To Asc("Z")
      msg = msg & Chr(i) & "=" & i & ", "   
   Next i
   MsgBox msg,0,"ASCII Codes"
End Sub