Напечатать те числа массива, которые больше предыдущего - VB

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))
       '
        For i = 1 To l
            Text2.Text = Text2.Text + ", " + CStr(Msi(i))
        Next i
        Text3.Text = ""
        For i = 1 To l

               If Msi(i) <= Msi(i - 1) Then Exit For
               s = s & ", " & Msi(i)

            Text3.Text = s & vbCrLf
        Next i
    End If
End Sub