Your code might look something like;
Dim LResponse As Integer
Dim LResponse2 As Integer
LResponse = MsgBox("Would you like to delete this file", vbYesNo, "Continue")
If LResponse = vbYes Then
LResponse2 = MsgBox("Are you sure? Deletion can not be undone!", vbYesNo, "Confirm")
If...