Random password generator

fx:
kode leveres i selle A1

Sub xGenerator()
Dim x
Sheets("Ark2").Activate ' ret til dit ark
Randomize
[a1] = ""
For t = 1 To 10
om:
x = Int((122 - 48 + 1) * Rnd + 48)
If x >= 47 And x <= 57 Or x >= 65 And x <= 90 Or x >= 97 And x <= 122 Then
[a1] = [a1] & Chr(x)
Else
GoTo om
End If
Next
End Sub

hvordan går det med denne ?