[Medic84]

Ну как то так...

Код:

Module Module1

    Sub Main()
        Dim a, b, c, d As Integer
        Dim y As Long
        a = InputBox("Введи значение a", "Введите значение")
        b = InputBox("Введи значение b", "Введите значение")
        c = InputBox("Введи значение c", "Введите значение")
        d = InputBox("Введи значение d", "Введите значение")
        y = System.Math.Sqrt(System.Math.Abs(3 * a * a - b)) - System.Math.Pow((c - d), 3)
        MsgBox("Ваше значение" & Chr(13) & Chr(10) & y)

    End Sub

End Module

Писал в Visual Studio 2010 -> Консольное приложение