Error 9: Subscript out of range

Option Explicit
Public MinMarkInd As Integer
Public AdditCond As Boolean
Public iter As Integer
 
Public Sub Main(A() As Single, b() As Single, c() As Single, m As Integer, n As Integer, NOtBeta() As Integer)
Dim Vect As String
Dim vct As Range
 
Dim i As Integer
Dim j As Integer
Dim m_out As Integer
Dim n_out As Integer
Dim Sigma(0 To 1000) As Single
Dim ANull(0 To 1000) As Single
Dim bs As Integer
Dim strseltop As String
 
Dim Basis(1 To 1000, 1 To 1000) As Single
Dim ARas(0 To 1000, 0 To 1000) As Single
Dim bRas(0 To 1000) As Single
Dim basisRas(0 To 1000, 0 To 1000) As Single
Dim cOtBeta(1 To 1000) As Single
Dim basisRasObr(0 To 1000, 0 To 1000) As Single
Dim basisRasForConv(1 To 1000, 1 To 1000) As Single
Dim bRasObr(0 To 1000) As Single
Dim OptimPlan(0 To 1000) As Single
 
 
    'ñîçäàíèå ëèñòà äëÿ âûâîäà áàçèñíûõ ìàòðèö
    
    If form.CheckBox1.Value = True Then
        Output_of_Basismatrix.Creating
    End If
    'îáíóëåíèå ïåðåìåííûõ
 
    For i = 0 To m
        bRasObr(i) = 0
    Next i
 
 
    For i = 1 To m
     For j = 1 To m
               Basis(i, j) = A(i, NOtBeta(j))
     
    Next j
   Next i
      
  
            
           
                'ïåðåñ÷åò íóëåâîé ñòðîêè â áàçèñíîé ìàòðèöå
                'ôîðìèðîâàíèå íîâîãî ñ îò áåòà
                For i = 1 To m
                    cOtBeta(i) = c(NOtBeta(i))
                Next i
      
        
   
        'ôîðìèðîâàíèå ìàòðèöû À ðàñøèðåííîé (áåç íåâÿçîê)
        For i = 0 To m
            For j = 1 To n
                If (i = 0) And j <= n Then
                    ARas(i, j) = c(j)
                ElseIf i > 0 And j <= n Then
                    ARas(i, j) = A(i, j)
                End If
            Next j
        Next i
        
        'ôîðìèðîâàíèå b ðàñøèðåííîãî
        For i = 0 To m
            If i = 0 Then
                bRas(i) = 0
            ElseIf i > 0 Then
                bRas(i) = b(i)
            End If
        Next i
        
  
        
        'ôîðìèðîâàíèå ðàñøèðåííîãî áàçèñà
        For i = 0 To m
            For j = 0 To m
                If i = 0 And j = 0 Then
                    basisRas(i, j) = -1
                ElseIf i = 0 And j > 0 Then
                    basisRas(i, j) = cOtBeta(j)
                ElseIf i > 0 And j = 0 Then
                    basisRas(i, j) = 0
                ElseIf i > 0 And j > 0 Then
                    basisRas(i, j) = Basis(i, j)
                End If
            Next j
        Next i
        
        'îáðàùåíèå áàçèñà
        For i = 1 To m + 1
            For j = 1 To m + 1
                basisRasForConv(i, j) = basisRas(i - 1, j - 1)
              Next j
        Next i
        
        MatrixProcs.MatrixConversion m + 1, basisRasForConv
        
        For i = 1 To m + 1
            For j = m + 2 To 2 * (m + 1)
                basisRasObr(i - 1, j - 2 - m) = basisRasForConv(i, j)
            Next j
        Next i
        
        'ôîðìèðîâàíèå á îò áåòà
        For i = 0 To m
           For j = 0 To m
               bRasObr(i) = bRasObr(i) + bRas(j) * basisRasObr(i, j)
           Next j
        Next i
     'ïðîâåðêà íà äîïóñòèìîñòü
    For j = 1 To n
        ANull(j) = 0
    Next j
    For j = 0 To m
        Sigma(j) = basisRasObr(0, j)
    Next j
    
    
    For i = 0 To m
      For j = 1 To n
        ANull(j) = ANull(j) + Sigma(i) * ARas(i, j)
    Next j
  Next i
  
       For j = 1 To n
          If ANull(j) < 0 Then
          MsgBox "Íåäîïóñòèìûé áàçèñ"
          Exit Sub
          End If
       Next j
         
     
     
        iter = 0
        
        If form.CheckBox1.Value = True Then
            Output_of_Basismatrix.OutputBasMatr bRasObr, basisRasObr, m, iter
        End If
    
        AdditCond = True
        
        'ïðèìåíåíèå ñèìïëåêñ-ìåòîäà
        Do While (Crit_of_Optimality.Criterion(basisRasObr, bRasObr, n, m) = True) _
        And AdditCond = True
            iter = iter + 1
            
           
            
           
            Jordan_Gauss.JG basisRasObr, bRasObr, ARas, m, n, NOtBeta
        Loop
   
    
    For i = 1 To m
        OptimPlan(NOtBeta(i)) = bRasObr(i)
    Next i
    
      With form
        Vect = Trim(CStr(.RefEdit4.Text))
        End With
     
 
    Set vct = Range(Vect)
    Range(Vect).Clear
 
    
        For j = 1 To n
            vct(j).Value = OptimPlan(j)
        Next j
    
   
End Sub