Для реализации задачи в коде нужно предусмотреть обработку следующих трех событий:
1) загрузка формы;
2) потеря фокуса текстовым полем "Начало";
3) щелчок на кнопке "Вычислить".
Тексты соответствующих процедур представлены ниже.
Option Explicit 'Обязательное описание переменных
Const КД = 7 'Количество дней в периоде
'Вычисление стоимости товара
Private Sub cmdВычислить_Click()
Const СтавкаНДС = 20
'Описание переменных
Dim curЦенаНДС As Currency, _
curСтоимость As Currency
'Вычисление цены с учетом НДС
curЦенаНДС = CCur(txtЦена) + CCur(txtЦена) * СтавкаНДС / 100
'Вычисление стоимости
curСтоимость = curЦенаНДС * CInt(txtКоличество)
'Формирование результата
lblРезультат = "Стоимость товара с учетом НДС составляет " & _
Format(curСтоимость, "0.00") & " грн." & vbCrLf & _
"Цена действует на период с " & txtНачало & _
" до " & lblрзтОкончание
End Sub
'Задание текущего значения даты начала периода
'и вычисление даты его окончания
Private Sub Form_Load()
txtНачало = Date
lblрзтОкончание = Date + КД
End Sub
'Вычисление даты окончания периода
'при изменении его начала
Private Sub txtНачало_LostFocus()
lblрзтОкончание = CDate(txtНачало) + КД
End Sub