Function getCode(iCount)
Dim arrChar 
Dim j,k,strCode 
arrChar = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" 
k=Len(arrChar) 
Randomize 
For i=1 to iCount 
j=Int(k * Rnd )+1 
strCode = strCode & Mid(arrChar,j,1) 
Next 
getCode = strCode 
End Function