Система уравнений: вычислить значение y по формуле

Public Class Form1
    Dim a, b, x, y As Integer
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        x = InputBox("Введите x")
        a = InputBox("Введите а")
        b = InputBox("Введите b")
       
        Label1.Text = y
    End Sub
    Function sys(ByVal x As Integer, ByVal y As Integer) As Integer
 
        If a < 0 And b > 5 Then y = a + b * b - 4 Else 
        If 2 * x < -1 Then y = x + 2 Else 
        If 2 * x >= -1 And 2 * x <= 1 Then y = x Else 
        If 2 * x > 1 Then y = x * x + 1
 
    End Function
 
End Class

Public Class Form1
    Dim a As Integer, b As Integer, x As Integer, y As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        x = InputBox("Введите x")
        a = InputBox("Введите а")
        b = InputBox("Введите b")
        If a < 0 And b < 5 Then
            y = a * a + b + 10
            MsgBox(y)
        Else
            If 2 * x < -1 Then
                y = x + 2
                MsgBox(y)
            ElseIf 2 * x >= -1 And 2 * x <= 1 Then
                y = x
                MsgBox(y)
            ElseIf 2 * x > 1 Then
                y = x * x + 1
                MsgBox(y)
            End If
        End If
    End Sub
End Class