Slet indhold af mappe

Meningen er når man klikker på vbs filen, så spørger den: Ønsker du at slette filerne? Hvis man så trykker ja sletter den filerne og skriver Filerne er nu slettet. Og hvis man trykker nej så skal den bare lukket programmet. Mit script ser sådan ud:

Dim FSO, Files, Folders
set FSO=CreateObject("Scripting.FileSystemObject")
FSO = MsgBox ("Ønsker du at slette filerne ?",4,"Slet filer")
If Value = 6 Then
Folders="c:\Documents and Settings\bruger1\Skrivebord\delete\*.*"
Files="c:\Documents and Settings\bruger1\Skrivebord\delete\*.*"
on error resume next
FSO.DeleteFolder(Folders)
FSO.DeleteFile(Files)
FSO = MsgBox ("Filerne er nu slettet", 0, "Slet filer")
End If
If Value = 7 Then
End If

Ligemeget hvad jeg trykker (ja eller nej) så lukker den bare programmet, hvad gør jeg forkert ?