Variabile con numero random alfanumerico

[lufo5]

Function creaKey() 
  vLungh = 4	
	Randomize
  For xx = 1 To vLungh
    creaKey = creaKey & Chr(Int((126 - 48 + 1) * Rnd + 48))
  Next 
End Function