Sub vvv()
Dim dt As Date, n#
n = Val(InputBox("Введите номер недели (от 1 до 53)", "ВВОД ДАННЫХ"))
If n >= 1 And n <= 53 Then
dt = DateSerial(Year(Now), 1, 1) + n * 7 - (Weekday(DateSerial(Year(Now), 1, 1) + n * 7, 2) - 1)
End If
MsgBox n & " неделя, то дата будет " & dt
End Sub