Задать конечное значение цикла, которое определяется в самом цикле - VB

Option Explicit
Dim a As Double
Dim p As Double
Dim y As Double
Dim l() As Double
Dim i As Integer
Dim t As Double
Dim z As Double
Dim b As Double
Dim S_p As Double
Dim S_g As Double
Dim z_gl As Double
 
Private Sub Form_Load()
      p = 0.09
      y = 1.7
For i = 1 To ??? Step 0.1 'вопросы "???" поставил т.к. не знаю как поступать в данном случае
      z = i - 0.1 / 2
      If z <= 0 Then a = 0
      m = 2 * z / b
      If 0 < m <= 0.4 Then a = 1 - (1 - 0.96) / 40 * (m - 0)
      If 0.4 < m <= 0.8 Then a = 0.96 - (0.96 - 0.8) * (m - 0.4) / 40
      If 0.8 < m <= 1.2 Then a = 0.8 - (0.8 - 0.606) * (m - 0.8) / 40
      If 1.2 < m <= 1.6 Then a = 0.606 - (0.606 - 0.449) * (m - 1.2) / 40
      If 1.6 < m <= 2 Then a = 0.449 - (0.449 - 0.336) * (m - 1.6) / 40
      If 2 < m <= 2.4 Then a = 0.336 - (0.336 - 0.26) * (m - 2) / 40
      If 2.4 < m <= 2.8 Then a = 0.26 - (0.26 - 0.2) * (m - 2.4) / 40
      If 2.8 < m <= 3.2 Then a = 0.2 - (0.2 - 0.13) * (m - 2.8) / 40
 
S_p = a * p
S_g = i * y
      'в следующей строке при выполнении условия необходимо присвоить переменной z_gl значение i - которое и будет 
      'являться конечным значением цикла.
      'ну или просто использовать значение элемента i при подстановке которого, данное условие выполняется
 
'Я понимаю, что можно указать конечный размер цикла значительно больше, того что будет получаться 
'из условия S_g >= S_p * 0.2 и по выполнению условия выполнять выход из цикла
     
      If S_g >= S_p * 0.2 Then z_gl = i  [and Exit For]
      'как сделать выход из цикла при выполнении данного условия или же лучше использовать другую конструкцию циклов
Next i
End Sub