Function GenerateRnd(nMax)
	Dim strLetter, intRnd, strPassWord, i
	i = 0
	strLetter = Array("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","1","2","3","4","5","6","7","8","9")
	Randomize Timer
	do while i < nMax
	      intRnd = strLetter(Int(RND * 35))
	      strPassWord = strPassWord + intRnd
	      i = i + 1
	loop
	GenerateRnd = strPassWord
  End Function