DelFile

Dim Filename As String
Dim Answer
Filename = "C:\Test.txt"
Answer = _
MsgBox("Are you sure you want to delete " & Filename, _
vbYesNo)
If Answer = vbYes Then
Kill Filename
Else
End If