Sub Task1()
    Dim Number, Res As String
    Dim Digits(0 To 9), Digit As Integer
    Number = InputBox("Ââåäèòå ÷èñëî")
    For I = Len(Number) To 1 Step -1
        Digit = CInt(Mid(Number, I, 1))
        Res = Res & CStr(Digit + 1)
        Digits(Digit) = Digits(Digit) + 1
    Next I
    MsgBox (Res)
    For I = 0 To 9
        If Digits(I) <> 0 Then
            MsgBox (CStr(I) & ": " & Digits(I))
        End If
    Next I
End Sub

Sub Task2()
    Dim TodayDate, BirthDate As Date
    TodayDate = Date
    BirthDate = InputBox("Ââåäèòå äàòó ðîæäåíèÿ")
    MsgBox (DateDiff("D", BirthDate, TodayDate) \ 365)
End Sub