Option Explicit

Public Sub BerechnungZeit()
Dim datVergangenerTag As Date
Dim datHeutigerTag As Date
Dim Berechnung
Dim Eingabe
Dim Prompt As String
Dim Title As String
    Prompt = "Bitte das Datum des vergangenen Tages eingeben" & Chr(10) & " Format: dd.mm.jjjj"
    Title = "Datumseingabe"
    datHeutigerTag = Date
    datVergangenerTag = InputBox(Prompt, Title)
    Berechnung = datHeutigerTag - datVergangenerTag
        Select Case Berechnung
            Case Is > 365
            MsgBox "Eingegebener Wert ist mehr als ein Jahr"
            Case Is < 365
            MsgBox Berechnung & " Tage, sind weniger als ein Jahr"
        End Select
End Sub