Построить таблицу значений функции - Visual Basic .NET

Формулировка задачи:

Как поправить код, чтобы значение X сравнивалось один раз? Сейчас цикл берет измененные значения X. От этого результат не верный.

Imports System.Math
Public Class MainForm
    Private Function Y(ByVal x As Single) As Single
        If x > 1 Then Y = Exp(x)
        If x < 0 Then Y = 2 * x - 1
        If x <= 1 And x >= 0 Then Y = -1
    End Function
    Private Sub CaclBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaclBtn.Click
        ResEdit.Text = ""
        Dim x As Single, a As Single, b As Single, h As Single, yy As Single
        a = CDbl(AEdit.Text)
        b = CDbl(BEdit.Text)
        h = CSng(HEdit.Text)
        x = a
        While x <= b
            yy = Y(x)
            ResEdit.Text = ResEdit.Text + "x = " + CStr(x) + ", y(x) = " + CStr(yy) + vbNewLine
            x = x + h
        End While
    End Sub
    Private Sub ResEdit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResEdit.TextChanged
    End Sub
End Class

Спасибо за помощь!

Решение задачи: «Построить таблицу значений функции»

textual
                            Листинг программы 
                        

                            Private Function Y(ByVal x As Single) As Single
        If x > 1 Then 
           Y = Exp(x)
        ElseIf x < 0 Then 
           Y = 2 * x - 1
        Else
           Y = -1
        End if
End Function
                        