Array Huruf Pada Visual Basic

Untuk perulangan dari huruf A sampai huruf Z 
i = Asc ("A")
Do until i >Asc("Z")
       Text1.text = "Huruf" & chr(i)
       i = i + 1
loop

Untuk perulangan dari huruf Z sampai huruf A

i = Asc ("Z")
Do until i >Asc("A")
       Text1.text = "Huruf" & chr(i)
       i = i - 1loop