Private Sub Main()
    'Объявляем переменные
    Dim x, f, P As Single

    'Присваиваем переменной P значение 3.14
    P = 3.14

    'Просим ввести X
    x = InputBox("Введите значение X")

    'Делаем условия, при которых будут выведены ответы
    If (x > 0 And x < (P / 2)) Then

        'Решаем математическое выражение
        f = Sqr(Abs(Cos(x) ^ 3 - Ln(3 * x)))

        'Выводим результат
        result = MsgBox("Результат: " & f, vbInformation + vbOKOnly, "Решение")
    ElseIf ((x > (P / 2)) And (x < (P * 2))) Then

        'Решаем математическое выражение
        f = Ln(x + 4 * x) ^ 2

        'Выводим результат
        result = MsgBox("Результат: " & f, vbInformation + vbOKOnly, "Решение")
    Else
        'Если условия не совпадают, выводим сообщение об ошибке
        result = MsgBox("Параметры не подходят под заданное условие", vbInformation + vbOKOnly, "Решение")
    End If
End Sub