Наименьшая отрицательная подпоследовательность

Option Explicit
Dim ind As Integer
 
Dim matrix() As TextBox
Dim n As Integer
Dim a() As Integer, b() As Integer
 
Private Sub cmd2_Click()
ind = CInt(txtSize.Text)
 
 
Dim g As Integer
Randomize
For g = 1 To ind
    txtMatrix(g).Text = CStr(CInt(100 * Rnd - 50))
    
Next g
 
End Sub
 
Private Sub cmd3_Click()
Dim h As Integer, min As Integer, imin As Integer, l As Integer, k As Integer, n As Integer
Dim curlen As Integer, maxlen As Integer, maxend As Integer, maxStart As Integer, p As Integer
Dim a() As Integer
For h = 1 To ind
txtMatrix(h).BackColor = vbWhite
Next
maxStart = 0
maxend = 0
curlen = 0
maxlen = ind + 1
ReDim a(1 To ind)
For h = 1 To ind
 a(h) = CInt(txtMatrix(h).Text)
 Next h
 For h = 1 To ind
        If a(h) < 0 Then
            curlen = curlen + 1
        Else
            If curlen < maxlen And curlen Then
                maxlen = curlen
                maxStart = h - curlen
                maxend = h - 1
                curlen = 0
            End If
        End If
    
   
    Next
   
    If curlen < maxlen Then
        maxlen = curlen
        maxStart = h - curlen
        maxend = h - 1
        curlen = 0
        End If
 
For p = maxStart To maxend
   txtMatrix(p).BackColor = &O767
   Next
MsgBox (maxStart & "-" & maxend)
End Sub
 
 
Private Sub cmdInput_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Static ind As Integer
n = CInt(txtSize.Text)
 Do While ind > 0
 Unload txtMatrix(ind)
 ind = ind - 1
Loop
ind = CInt(txtSize.Text)
 For i = 1 To ind
  Load txtMatrix(i)
   txtMatrix(i).Left = txtMatrix(0).Left + (i - 1) * (txtMatrix(j).Width + k)
   txtMatrix(i).Visible = True
   txtMatrix(i).Text = CStr(i)
 Next i
 cmd2.Visible = True
 cmd3.Visible = True
 
End Sub