В качестве f(x) использовать по выбору: sh(x), x2, ex

Imports System.Math
Module Module1
    Function f(x As Double, choice As Integer) As Double
        Select Case choice
            Case 1
                Return Math.Sinh(x)
            Case 2
                Return x * x
            Case 3
                Return Math.Exp(x)
            Case Else
                Return 0
        End Select
    End Function
 
    Sub Main()
        Dim x, p, l As Double
        Dim choice As Integer
        Dim cont As Char = "Y"c
        While cont = "Y"c Or cont = "y"c
            Console.WriteLine("Выберите функцию f(x):")
            Console.WriteLine("1: sh(x)")
            Console.WriteLine("2: x^2")
            Console.WriteLine("3: e^x")
            Console.WriteLine("4: Выход")
            choice = Console.ReadLine()
            If choice = 4 Then Exit While
            Console.Write("Введите x: ")
            x = Console.ReadLine()
            Console.Write("Введите p: ")
            p = Console.ReadLine()
            If x > Abs(p) Then
                l = 2 * f(x, choice) ^ 3 + 3 * p ^ 2
            ElseIf x > 3 And x < Abs(p) Then
                l = Abs(f(x, choice) - p)
            ElseIf x = Abs(p) Then
                l = (f(x, choice) - p) ^ 2
            End If
            Console.WriteLine("Результат: " & l)
            Console.Write("Продолжить вычисление (Y/N) ?")
            cont = Console.ReadLine()
        End While
    End Sub
End Module