Subscript out of range: '[number: 36.6552320122719]'

[Luis33]

Ciao, perchè ogni tanto questa funzione:

Function genera_pwd()

	Dim i, x
	Dim chars(36)
	Dim pwd(8)
	
	x = 0 
	'a-z
	for i = 97 to 122
		chars(x) = chr(i)
		x = x + 1
	next
	'0-9
	for i = 48 to 57
		chars(x) = chr(i)
		x = x + 1
	next
	password = "" 
	For i = 1 to 8
		Randomize
		password = password & chars(Int(UBound(chars) - LBound(chars) + 1) * Rnd + LBound(chars))
	next
	genera_pwd = password
end Function

mi restituisce quest'errore?:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 36.6552320122719]'

Che significa? Si può risolvere?