codice:
function createKey(argLen)
	
	dim alphaArray, ii, position, key
	
	'* definisce l'alfabeto
	alphaArray = Array("a","b","c","d","e","f","g","h","i","l","j","k","m","n","o","p","q","r","s","t","u","v","w","x","y","z", _
					   "A","B","C","D","E","F","G","H","I","L","J","K","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z", _
					   "0","1","2","3","4","5","6","7","8","9","0")
						   
	ii = 1
	while ii < int(argLen)+1
		
		randomize int(timer * 100)*ii
		
		position = (Int((Rnd * ubound(alphaArray)))) 
		key = key & alphaArray(position)
			
		ii = ii + 1
		
	wend
	
	createKey = key
	
end function
si usa così

codice:
dim randomString
randomString = createKey(6)