Событийная процедура должна содержать только операторы вызова пользовательских процедур

Imports System.Math
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Double = Val(TextBox1.Text)
        Dim y As Double = Val(TextBox2.Text)
        Dim z As Double = Val(TextBox3.Text)
        Dim a As Double = Val(TextBox4.Text)
 
        If Pow(Abs(z), x * y) < 3 Then 'проверяем первое условие
            One(x, y, z) 'отправляем в первую процедуру
        ElseIf Pow(Abs(z), x + y) > 4 Then 'проверяем второе условие
            Two(x, y, z) 'отправляем во вторую процедуру
        ElseIf 3 <= Pow(Abs(z), x + y) And Pow(Abs(z), x + y) <= 4 Then 'проверяем третье условие
            Three(x, y, z, a) 'отправляем в третью процедуру
        Else 'если ни одно условие не выполняется
            MsgBox("Ни одно условие не выполнено")
        End If
 
    End Sub
 
    Sub One(ByVal x1 As Double, ByVal y1 As Double, ByVal z1 As Double)
        Dim r As Double
        r = Sqrt(Abs(x1) + Abs(y1) + Abs(z1))
        TextBox5.Text = r.ToString
        TextBox6.Text = "1 условие"
    End Sub
 
    Sub Two(ByVal x1 As Double, ByVal y1 As Double, ByVal z1 As Double)
        Dim r, arr(2), a0, a1, a2 As Double
        a0 = Sqrt(Abs(x1))
        a1 = Sqrt(Abs(y1))
        a2 = Sqrt(Abs(z1))
        'создаем массив чтобы найти минимум
        arr = {a0, a1, a2}
        r = arr.Min
        TextBox5.Text = r.ToString
        TextBox6.Text = "2 условие"
 
    End Sub
 
    Sub Three(ByVal x1 As Double, ByVal y1 As Double, ByVal z1 As Double, ByVal a1 As Double)
        Dim r As Double
        r = Max(x1, y1 ^ 3) + a1
        TextBox5.Text = r.ToString
        TextBox6.Text = "3 условие"
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Dim a(6) as Integer = {-3, 5, 2, 12, -6, 1, 17}
Dim i as Integer
Dim mx as Integer = 0
Dim mn as Integer = 0
For i = 0 To a.Length - 1
    If Math.Abs(a(i)) > mx Then mx = a(i)
    If Math.Abs(a(i)) < mn Then mn = a(i)
Next i

Dim mx As Integer = Integer.MinValue
Dim mn As Integer = Integer.MaxValue