Sure.
VB Code:
  1. For x = Asc("A") To Asc("P") Step 2
  2.    List1.AddItem Chr(X)
  3. Next