codice:
Dim Filename As String
Dim Answer
Filename = "C:\Test.txt"
Answer = MsgBox("Sei sicuro di voler cancellare il file" & Filename, YesNo)
If Answer = vbYes Then
    Kill Filename
Else
End If