使用Visual Basic中的GoTo用随机数填充数组

Question

这是我的一些代码。我需要知道我使用的技术是否会使用真正随机的数字填充名为“usednum”的数组，或者数字是否经常在同一个地方重复。此外，是否有一个更好的随机化器，我可以使用更“随机”。 （PS。我知道GoTo效率低下/讨厌，但这至少是我目前的担忧）

Sub Randomizer()
    For x = 0 To 9
Start:
        randomint = (Rnd() * 9) + 1

        If randomint = usednum(0) Then
            GoTo Start
        ElseIf randomint = usednum(1) Then
            GoTo Start
        ElseIf randomint = usednum(2) Then
            GoTo Start
        ElseIf randomint = usednum(3) Then
            GoTo Start
        ElseIf randomint = usednum(4) Then
            GoTo Start
        ElseIf randomint = usednum(5) Then
            GoTo Start
        ElseIf randomint = usednum(6) Then
            GoTo Start
        ElseIf randomint = usednum(7) Then
            GoTo Start
        ElseIf randomint = usednum(8) Then
            GoTo Start
        Else
            usednum(x) = randomint
        End If
    Next
End Sub