Randomize
For i=0 to 11
name= name & Chr(((48+Int(Rnd*10))*((Rnd<.5)+1)+((Rnd(0)<.5)^2)*(97+Int(Rnd*26)))*(i<>0)^2+((i<>0)+1)*(97+Int(Rnd*26)))
Next
msgbox name
For i=0 to 11
name= name & Chr(((48+Int(Rnd*10))*((Rnd<.5)+1)+((Rnd(0)<.5)^2)*(97+Int(Rnd*26)))*(i<>0)^2+((i<>0)+1)*(97+Int(Rnd*26)))
Next
msgbox name
