Asc("Z")List1.AddItem "Huruf " & Chr(i)i = i + 1LoopEnd SubPrivate Sub">
No annoying ads and unlimited download of all publications
7 days free trial!*