Function getCode(iCount)

     Dim arrChar

     Dim j,k,strCode

     arrChar = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"

     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