Pfad = inputbox("Dies ist eine Nachricht", "Pfadangabe", "C:\WinNT\")
Tage = inputbox("Geben Sie hier die gewünschte Anzahl an Tagen ein", _
  "Tagesangabe", "40")
msgbox "Pfadeingabe war: " & Pfad
msgbox "Tagesangabe war: " & Tage

Pfad = inputbox("Dies ist eine Nachricht", "Pfadangabe", "C:\WinNT\")
Tage = inputbox("Geben Sie hier die gewünschte Anzahl an Tagen ein", _
  "Tagesangabe", "40")
 
save = msgbox ("Pfadeingabe war: " & Pfad &""& vbnewline & "Tagesangabe war: "& _
  Tage &""& vbnewline &""& vbnewline & "Mit dem Löschen anfangen?", _
  vbYesNo,"Sicherheitsabfrage")
 
If save = vbYes then
 
msgbox "antwort war ja" 'hier deine funktion rein
 
else
msgbox "Ich hör auf!" 'Hier ist ende
end if