Поменять местами минимальный нечетный элемент массива с последним

Dim a(0 To 9) As Byte
Private Sub Command1_Click()
    Dim i As Byte
    
    Randomize
    For i = 0 To 9
        a(i) = Rnd() * 4 + 1
    Next
    
    List1.Clear
    For i = 0 To 9
        List1.AddItem a(i)
    Next
    End Sub
    
 
Private Sub Command2_Click()
    List2.Clear
    For i = 0 To UBound(a) - 1
        m = a(i)
        k = i
        For y = i + 1 To UBound(a)
            If a(y) < m Then
                m = a(y)
                k = y
            End If
        Next
        a(k) = a(i)
        a(i) = m
    Next
    For i = 0 To 9
        List2.AddItem a(i)
    Next
End Sub

Sub Change_Min_Last()
Dim N As Integer, vArr(), i As Integer, iIndMin As Integer, vTmp
N = InputBox("Array size:")
ReDim vArr(1 To N)
For i = 1 To N
    vArr(i) = Int(Rnd * 50 + 10)
    List1.AddItem vArr(i)
Next
iIndMin = 1
For i = 3 To N Step 2
    If vArr(i) < vArr(iIndMin) Then iIndMin = i
Next
vTmp = vArr(N)
vArr(N) = vArr(iIndMin)
vArr(iIndMin) = vTmp
For i = 1 To N
   List2.AddItem vArr(i)
Next
End Sub