Dim Ant as dialogresult
Ant = Messagebox.Show("Waren Sie sich sicher das Sie diese datei löschen" & _
  "wollten?","zu spät", MessageboxButton.YesNo)
 
if ant = Dialogresult.Yes then
    Messagebox.show("es wäre eh schon zu spät gewesen")
else
    Messagebox.Show("die datei ist aber schon weg")
endif