Thanks for taking the time to read my question.

This does not work, and I'm not sure how else to write the code so that each
array will be filled with the values.

Any help would be great,

Thanks,

Brad


code=========================
Dim lowlet() As String
Dim upperlet() As String
Dim thenum() As Integer
Dim chara() As String

lowlet() = "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"
upperlet() = "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"
thenum() = "1,2,3,4,5,6,7,8,9,0"
chara() = "!@#%^*"