Поменять местами элементы в listbox - VBA

Формулировка задачи:

Мне нажно было найти в массиве min и max и поменять их местами, а как это сделать в listbox? я понял что нужно использовать ListIndex, а как использовать не знаю. вот код :

Private Sub vod_Click()
Dim a
Dim Min As Integer
Dim Max As Integer
Dim MinItem As Integer
Dim MaxItem As Integer

a = Split(TextBox1.Text)
ListBox1.List = a
N = UBound(a)
 
Min = Val(a(0))
MinItem = 0
 
For i = 0 To N Step 1
     If a(i) < Min Then
         Min = a(i)
         MinItem = i
     End If
Next i
 
Max = Val(a(0))
MaxItem = 0
 
For i = 0 To N Step 1
     If a(i) > Max Then
          Max = a(i)
          MaxItem = i
      End If
Next i
)

Решение задачи: «Поменять местами элементы в listbox»

textual
                            Листинг программы 
                        

                            Private Sub vod_Click()
Dim a 'massiv
Dim Min As Integer 'minimum
Dim Max As Integer 'maximum
Dim MinItem As Integer 'adres minimuma
Dim MaxItem As Integer 'adres maximuma
 
a = Split(TextBox1.Text)
ListBox1.List = a
N = UBound(a)
 
Min = Val(a(0))
MinItem = 1
 
For i = 0 To N Step 1
     If a(i) < Min Then
          Min = a(i)
          MinItem = i
     End If
Next i
 
Max = Val(a(0))
MaxItem = 1
 
For i = 0 To N Step 1
     If a(i) > Max Then
          Max = a(i)
          MaxItem = i
     End If
Next i
 
ListBox1.List(MinItem) = Max
ListBox1.List(MaxItem) = Min
 
End Sub
                        