[求助]循环结构

Dim TempArray, Temp
Temp = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
TempArray = Split(Temp, ",")
Median = Val(Text2.Text)
For i = LBound(TempArray) To UBound(TempArray)
        DoEvents
        Temp_Paht =TempArray(i)
next i
如何构建循环体,让Temp_Paht变量的值为aa...a-zz...z,长度由Median