Asc("Z")List1.AddItem "Huruf " & Chr(i)i = i + 1LoopEnd SubPrivate Sub">