Оператор MsgBox

Private Sub Command1_Click()
Rem Знакомства
R$ = InputBox("Как вас зовут?")
L = InputBox("Сколько вам лет?")
Print R$; "-вы прожили примерно"; L * 365; "дней"
End Sub

Print R$; "-вы прожили примерно"; L * 365; "дней"

Option Explicit
Dim s$, ss$, dt As Date, yyyy, d, m, ww
Private Sub Form_Load()
    
    ss = InputBox("как вас зовут ?", , "Fever Brain")
    
    Do
        s = InputBox("Когда вы родились ? (День/Месяц/Год) ", , "01.02.03"): If s = "" Then End
    Loop Until IsDate(s)
    dt = FormatDateTime(s)
    yyyy = DateDiff("yyyy", dt, Date, vbMonday, vbFirstJan1) - Abs(Month(dt) > Month(Date))
    m = DateDiff("m", dt, Date, vbMonday, vbFirstJan1)
    ww = DateDiff("ww", dt, Date, vbMonday, vbFirstJan1)
    d = DateDiff("d", dt, Date, vbMonday, vbFirstJan1)
    MsgBox ss & "!" & vbLf & "Вы прожили " & yyyy & " лет" & vbLf & _
    m & " месяцев" & vbLf & _
    ww & " недель" & vbLf & _
    d & " дней"
    End
End Sub