값 옮기기

Dim a(1 to 20) As integer 1부터 20까지 배열을 줬어요값을For i = 1 To 10
If a(10) 10 Then
a(i) = i
End If
Next iFor i = 1 To 10
If a(10) = 10 Then
a(i + 10) = i
End If
Next i이렇게 주었구요a(1)부터 a(20)까지 값을 주었는데여기서 무작위로값을 주어지게하는건데예를 들어 a(3) = 3 , a(5) = 5라는 값이있다면이값이 x1 = 3 ,x2 = 5 이런식으로 옮겨지게 할수 없을까요?