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