Prova così:

Dim i
For i = 65 To 90
List1.AddItem Chr(i)
Next i