Fehler im array ?

Hallo Leute...

Ich finde den Fehler irgnendwie nicht...

Func _StringRandom($Len,$Opt = 1)
;Chr(48) == "0", Chr(57) == "9", Chr(65) == "A", Chr(90) == "Z", Chr(97) == "a", Chr(122) = "z"
Local $vReturn = ""
If $Opt = 1 Then ;0-9,a-z,A-Z
$chr = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
ElseIf $Opt = 2 Then ;0-9,a-z
$chr = "abcdefghijklmnopqrstuvwxyz1234567890"
ElseIf $Opt = 3 Then ;0-9
$chr = "1234567890"
EndIf
For $vCounter = 1 To $Len
$vReturn &= $chr[Random(1,UBound ($chr)-1)]
Next
Return $vReturn
EndFunc

mfg. Andi

Gelöst xD , war mal wieder zu voreilig sorry ..

Func _StringRandom($Len,$Opt = 1)
;Chr(48) == "0", Chr(57) == "9", Chr(65) == "A", Chr(90) == "Z", Chr(97) == "a", Chr(122) = "z"
Local $vReturn = ""
If $Opt = 1 Then ;0-9,a-z,A-Z
$chr = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
ElseIf $Opt = 2 Then ;0-9,a-z
$chr = "abcdefghijklmnopqrstuvwxyz1234567890"
ElseIf $Opt = 3 Then ;0-9
$chr = "1234567890"
EndIf
$chr = StringSplit($chr,"")
For $vCounter = 1 To $Len
$vReturn &= $chr[Random(1,UBound ($chr)-1)]
Next
Return $vReturn
EndFunc