On Error Goto udrept Ife = MsgBox("Vil du verkeleg slette det vakre dokumentet kalt " + Filnavn$() + "????", "Licence to kill", 36) If ife = - 1 Then Offer$ = Filnavn$() DokLukk 2 Kill offer$ Print "Fila " + offer$ + " er sporlaust borte." Else End If udrept: