Найти элементы массива, образующие возрастающую последовательность

Private Declare Sub Sleep Lib "kernel32" ( _
  ByVal dwMilliseconds As Long)
Dim i, l 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))

'Private Declare Sub Sleep Lib "kernel32" ( _
  ByVal dwMilliseconds As Long)
Dim i As Integer, l As Integer
Dim Msi() As Integer
 
 
Private Sub Command2_Click()
    Dim s As String
    If Val(Text1.Text) <> 0 Then
        Randomize
        l = CInt(Text1.Text) - 1
        ReDim Msi(l)
        For i = 0 To l
            Msi(i) = Int(Rnd * 21 - 10)
        Next i
        Text2.Text = CStr(Msi(0))
        maxl = 0
        Max = Msi(0) '
        For i = 1 To l
            Text2.Text = Text2.Text + ", " + CStr(Msi(i))
        Next i
        Text3.Text = ""
        For i = 0 To l
            s = Msi(i)
            For j = i + 1 To l
               If Msi(j) <= Msi(j - 1) Then Exit For
               s = s & ", " & CStr(Msi(j))
               i = j
            Next j
            If UBound(Split(s, ",")) > 0 Then Text3.Text = Text3.Text & s & vbCrLf
        Next i
    End If
End Sub