指定した長さの文字列をランダムに取得

MsgBox GetRndStr(8)

Function GetRndStr(ByVal strLen)
	Dim strArr, tmpStr
	strArr=Split("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,0",",")
	For i=0 To strLen-1
		tmpStr=tmpStr & strArr(RandomNumber.Value(0, UBound(strArr)))
	Next
	GetRndStr=tmpStr
End Function