[Medic84]

Вместо Long напишите Double

Код:

        Dim a, b, c, d As Integer
        Dim y As Double
        Dim param As String
        Dim param2 As String
 Sub Main()
        a = InputBox("Введи значение a", "Введите значение")
        b = InputBox("Введи значение b", "Введите значение")
        c = InputBox("Введи значение c", "Введите значение")
        d = InputBox("Введи значение d", "Введите значение")
        y = (Abs(3 * a * a - b)) ^ (1 / 2) - (c - d) ^ 3
        If y < 0 Then param = "Отрицательное" Else: param = "Положительное"
        If y Mod 2 <> 0 Then param2 = "Нечетное" Else: param2 = "Четное"
        MsgBox ("Ваше значение" & Chr(13) & Chr(10) & y & " " & param & " " & param2)
        
 End Sub

А вот уже как это число преобразовать я не помню