Поправить программу

Function f(x) As Single
  f = 1 / Sqr(2 * x ^ 2 + 1)
End Function
Private Sub Âûïîëíèòü_Click()
  a = 1
  b = 4
  n = 2
  e = 0.001
  PZI = 0
 
Select Case True
   Case Ìåòîä1 '(Ìåòîä ïðÿìîóãîëüíèêîâ)
Do
     h = (b - a) / n
     NZI = 0
     For i = 0 To n - 1
       x = a + (i * h)
       X1 = a + ((i + 1) * h)
       X2 = (x + X1) / 2
       NZI = NZI + h * f(X2)
          
          Next i
     s = Abs((NZI - PZI)) / 4
     PZI = NZI
     n = n * 2
        Loop Until s < e
        Ðåçóëüòàò.Text = "Èíòåðâàë =0" + Str((Format(NZI, "#.##")))
      
      
   Case Ìåòîä2 'Ìåòîä òðàïåöèé
Do
      h = (b - a) / n
      NZI = 0
      For i = 0 To n - 1
          x = a + (i * h)
           X1 = a + ((i + 1) * h)
           NZI = NZI + h / 2 * (f(x) + f(X1))
        
        Next i
     
     s = Abs((NZI - PZI)) / 4
     PZI = NZI
     n = n * 2
        Loop Until s < e
        Ðåçóëüòàò.Text = "Èíòåðâàë =0" + Str((Format(NZI, "#.##")))
      
      
      Case Ìåòîä3 'Ìåòîä ïàðàáîë
Do
      h = (b - a) / n
      NZI = 0
      For i = 1 To n - 1 Step 2
          x = a + (i * h)
          X1 = a + ((i + 1) * h)
          X0 = a + ((i - 1) * h)
          NZI = NZI + h / 3 * (f(X0) + 4 * f(x) + f(X1))
           
       Next i
    
    s = Abs((NZI - PZI)) / 16
    PZI = NZI
    n = n * 2
        Loop Until s < e
        Ðåçóëüòàò.Text = "Èíòåðâàë =0" + Str((Format(NZI, "#.##")))
End Select
End Sub
Private Sub Âûõîä_Click()
End
End Sub
Private Sub Î÷èñòèòü_Click()
Ðåçóëüòàò.Text = ""
End Sub

  a = Val(InputBox("Введите а")
  b = Val(InputBox("Введите b")
  n = 2
  e = CDbl(InputBox("Введите e")