Public Sub procMoovingBlocks(ByVal VB As Single, ByVal Raznica As Integer)
  Gate7_Point1 VB, Raznica
End Sub
Private Sub Gate7_Point1(ByVal VB As Single, ByVal Raznica As Integer)
 intVSB = -0.1578 * VB ^ 2 + 13.443 * VB - 179.19
   RememberVSB = RememberVSB + intVSB
     If RememberVSB < Raznica + Con1 Then
        Gate5_Point1 VB, Raznica
     Else
        ' Открываем затвор7_1
End Sub
Private Sub Gate5_Point1(ByVal VB As Single, ByVal Raznica As Integer)
 intVSB = -0.16516 * VB ^ 2 + 14.052 * VB - 187.3005
   RememberVSB = RememberVSB + intVSB
     If RememberVSB < Raznica + Con1 Then
        Gate3_Point1 VB, Raznica
     Else
        ' Открываем затвор7_1
        ' Открываем затвор5_1
End Sub
Private Sub Gate3_Point1(ByVal VB As Single, ByVal Raznica As Integer)
 intVSB = -0.1553 * VB ^ 2 + 13.17 * VB - 175.57
   RememberVSB = RememberVSB + intVSB
     If RememberVSB < Raznica + Con1 Then
        Gate4_Point1 VB, Raznica
     Else
        ' Открываем затвор7_1
        ' Открываем затвор5_1
        ' Открываем затвор3_1
End Sub
Private Sub Gate4_Point1(ByVal VB As Single, ByVal Raznica As Integer)
 intVSB = -0.1578 * VB ^ 2 + 13.443 * VB - 179.19
   RememberVSB = RememberVSB + intVSB
     If RememberVSB < Raznica + Con1 Then
        Gate6_Point1 VB, Raznica
     Else
        ' Открываем затвор7_1
        ' Открываем затвор5_1
        ' Открываем затвор3_1
        ' Открываем затвор4_1
End Sub

Option Explicit
Private intVSB As Integer  ' Âîäîñáðîñ
Private Const Con1 = 50
Private RememberVSB As Integer

Public Sub procMoovingBlocks(ByVal VB As Single, ByVal Raznica As Integer)
  Gate7_Point1 VB, Raznica
End Sub

Private Sub Gate7_Point1(ByVal VB As Single, ByVal Raznica As Integer)
 intVSB = -0.1578 * VB ^ 2 + 13.443 * VB - 179.19
   RememberVSB = RememberVSB + intVSB
     If RememberVSB < Raznica + Con1 Then
        Gate5_Point1 VB, Raznica
     Else
        ' Открываем затвор7_1
End Sub
Private Sub Gate5_Point1(ByVal VB As Single, ByVal Raznica As Integer)
 intVSB = -0.16516 * VB ^ 2 + 14.052 * VB - 187.3005
   RememberVSB = RememberVSB + intVSB
     If RememberVSB < Raznica + Con1 Then
        Gate3_Point1 VB, Raznica
     Else
        ' Открываем затвор7_1
        ' Открываем затвор5_1
End Sub
Private Sub Gate3_Point1(ByVal VB As Single, ByVal Raznica As Integer)
 intVSB = -0.1553 * VB ^ 2 + 13.17 * VB - 175.57
   RememberVSB = RememberVSB + intVSB
     If RememberVSB < Raznica + Con1 Then
        Gate4_Point1 VB, Raznica
     Else
        ' Открываем затвор7_1
        ' Открываем затвор5_1
        ' Открываем затвор3_1
End Sub
Private Sub Gate4_Point1(ByVal VB As Single, ByVal Raznica As Integer)
 intVSB = -0.1578 * VB ^ 2 + 13.443 * VB - 179.19
   RememberVSB = RememberVSB + intVSB
     If RememberVSB < Raznica + Con1 Then
        Gate6_Point1 VB, Raznica
     Else
        ' Открываем затвор7_1
        ' Открываем затвор5_1
        ' Открываем затвор3_1
        ' Открываем затвор4_1
End Sub

intVSB = -0.1578 * VB ^ 2 + 13.443 * VB - 179.19

Option Explicit
Private intVSB As Integer  
Private Const Con1 = 50
Private RememberVSB As Integer
'Из Кода формы я передаю параметры Верхнего бьефа - VB и Разницу - Raznica 
Public Sub procMoovingBlocks(ByVal VB As Single, ByVal Raznica As Integer)
  Gate7_Point1 VB, Raznica
End Sub
' intVSB - это Водосброс
'Нахожу водосброс
Private Sub Gate7_Point1(ByVal VB As Single, ByVal Raznica As Integer)
 intVSB = -0.1578 * VB ^ 2 + 13.443 * VB - 179.19
'Запоминаю его
   RememberVSB = RememberVSB + intVSB
' Если Водосброс меньше Разницы + 50 то нужно перейти в след. процедуру
'И так до тех пор, пока не выполнится условие Водосброс больше Разница+50, тогда выполняем процедуры 'стоящие после Else , Которые выполняются в том же порядке, что пройденные процедуры.
     If RememberVSB < Raznica + Con1 Then
        Gate5_Point1 VB, Raznica
     Else
        ' Открываем затвор7_1
End Sub

Private Sub Gate5_Point1(ByVal VB As Single, ByVal Raznica As Integer)
 intVSB = -0.16516 * VB ^ 2 + 14.052 * VB - 187.3005
   RememberVSB = RememberVSB + intVSB
     If RememberVSB < Raznica + Con1 Then
        Gate3_Point1 VB, Raznica
     Else
        ' Открываем затвор7_1
        ' Открываем затвор5_1
End Sub

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