Из случайного массива получить новый с элементами большими удвоенного минимального элемента первоначального - VB

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

Помогите пожалуйста. Код почему-то не работает Из массива целых случайных чисел X=x(i), i=(1...n). Получить массив с элементами большими удвоенного минимального.

Private Declare Sub Sleep Lib "kernel32" ( _
  ByVal dwMilliseconds As Long)
Dim i, l, maxl, max As Integer
Dim Msi() As Integer

Private Sub Command2_Click()
  If Text1.Text <> "" Then
        Randomize
        l = CInt(Text1.Text) - 1
        ReDim Msi(l)
        For i = 0 To l
            Msi(i) = Round(Rnd(1) * 20 - 10, 0)
        Next i
        Text2.Text = CStr(Msi(0))
        maxl = 0
        max = Msi(0)
        For i = 1 To l
            Text2.Text = Text2.Text + ", " + CStr(Msi(i))
            If Msi(i) < max Then
                max = 2 * Msi(i)
                maxl = i
            End If
        Next i
        Text3.Text = ""
        For i = 0 To l
            If i > maxl Then Text3.Text = Text3.Text + " ," + CStr(Msi(i))
        Next i
    End If
End Sub

Решение задачи: «Из случайного массива получить новый с элементами большими удвоенного минимального элемента первоначального»

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

                            Private Sub Command2_Click()
  Dim l As Integer, i As Integer, s As String
  Dim Msi() As Integer, min As Integer
  If Text1.Text <> "" Then
        Randomize
        l = CInt(Text1.Text) - 1
        ReDim Msi(l)
        For i = 0 To l
            Msi(i) = Round(Rnd(1) * 10, 0)
        Next i
        Text2.Text = CStr(Msi(0))
        min = Msi(0)
        For i = 1 To l
            Text2.Text = Text2.Text + ", " + CStr(Msi(i))
            If min > Msi(i) Then min = Msi(i)
        Next i
        min = min * 2
        Text3.Text = ""
        For i = 0 To l
            If Msi(i) > min Then Text3.Text = Text3.Text + " ," + CStr(Msi(i))
        Next i
    End If
End Sub
                        