Ordenación Método Burbuja (May, Men, y Prom.)

Dim arreglo(99) As Integer
Dim I As Integer
Dim J As Integer
Dim x(1 To 10) As Double
Dim c As Integer
Dim vectemp As Double
Private Sub Command1_Click()
For I = 0 To 99
arreglo(I) = CInt(Rnd(100) * 100)
List1.AddItem arreglo(I)
Next I
End Sub
Private Sub Command2_Click()
List1.Clear
For I = 0 To 99 Step 1
List1.AddItem arreglo(99 - I)
Next I
End Sub
Private Sub Command3_Click()
List2.Clear
For I = 0 To 99
List2.AddItem arreglo(I)
Next I
End Sub
Private Sub Command4_Click()
Dim iMin As Long
Dim iMax As Long
Dim vectemp As Long
Dim pos As Long
iMin = LBound(arreglo)
iMax = UBound(arreglo)
While iMax > iMin
pos = iMin
For I = iMin To iMax - 1
If arreglo(I) > arreglo(I + 1) Then
vectemp = arreglo(I + 1)
arreglo(I + 1) = arreglo(I)
arreglo(I) = vectemp
pos = I
End If
Next I
iMax = pos
Wend
List2.Clear
For I = 0 To 99
List2.AddItem arreglo(I)
Next I
End Sub
Private Sub Command5_Click()
Dim menor, mayor As Integer
menor = LBound(arreglo)
mayor = UBound(arreglo)
Text1 = arreglo(mayor)
Text2 = arreglo(menor)
For I = menor To mayor
promedio = promedio + arreglo(I)
Next I
promedio = promedio / (mayor + I)
Text3 = Str(promedio)
End Sub