В заданном одномерном массиве поменять местами соседние элементы - VB

Sub Task()
Dim i As Integer, N As Integer, A() As Integer, sStr As String
N = InputBox("N:")
ReDim A(1 To N)
For i = 1 To N
    A(i) = Int(Rnd * 9 + 1)
    sStr = sStr & A(i) & " ; "
    If i Mod 2 = 0 Then
        iTmp = A(i)
        A(i) = A(i - 1)
        A(i - 1) = iTmp
    End If
Next
sStr = sStr & vbNewLine
For i = 1 To N
    sStr = sStr & A(i) & " ; "
Next
MsgBox sStr
End Sub