Option Explicit
Dim A1(1 To 5) As Single
Dim A2(1 To 5) As Single
Dim A3(1 To 5) As Single
Dim B1(1 To 5) As String

Private Sub Form_Load()
 A1(1) = -0.1578: A1(2) = -0.16516: A1(3) = -0.1553: A1(4) = A1(1): A1(5) = A1(1)
 A2(1) = 13.443: A2(2) = 14.052: A2(3) = 13.17: A2(4) = A2(1): A2(5) = A2(1)
 A3(1) = -179.19: A3(2) = -187.3005: A3(3) = -175.57: A3(4) = A3(1): A3(5) = A3(1)
 B1(1) = "ОткрытьЗатвор7_1": B1(2) = "ОткрытьЗатвор5_1": B1(3) = "ОткрытьЗатвор3_1": B1(4) = "ОткрытьЗатвор4_1": B1(5) = "ОткрытьЗатвор6_1"
End Sub

Private Sub Open_Gates(ByVal VB As Single, ByVal Raznica As Integer)
 Dim RememberVSB As Integer, intVSB As Integer
 Dim i As Integer
  For i = 1 To 5
   intVSB = A1(i) * VB ^ 2 + A2(i) * VB + A3(i)
   RememberVSB = RememberVSB + intVSB
   Debug.Print B1(i)
     If RememberVSB > Raznica + Con1 Then Exit For
  Next
End Sub

Option Explicit

Private Sub Form_Load()
Dim A1(1 To 5) As String
Dim A2(1 To 5) As String
Dim A3(1 To 5) As String
Dim B(1 To 5) As String
Dim i As Integer
  
  Open App.Path & "\Òåñò.txt" For Input As #1

    For i = 1 To 5
      Line Input #1, A1(i)
    Next
      For i = 1 To 5
        Line Input #1, A2(i)
      Next
        For i = 1 To 5
          Line Input #1, A3(i)
        Next
          For i = 1 To 5
            Line Input #1, B(i)
          Next
End Sub