Option Explicit
Sub Test()

Dim n, x As Integer

n = InputBox("Введите число численность стада в текущем году:", "Ввод исходных данных") 'Вывод запроса для ввода данных в отдельном окне на экране'

x = 2 * n + 0.001 * n * n

MsgBox "Численность стада в текущем году: " & n & " голов" & vbCr & _
"Численность стада в следующем году: " & n + x & " голов" & vbCr & _
"Прирост стада составит: " & x & " голов", vbOKOnly + vbInformation, _
"Отчет по итогам выполнения программы"
End Sub