msgbox option

[Pouncer]

im trying to do something like

Private Sub Command1_Click()
'msgbox here asking 'are you sure you want to remove the file with yes/no button, if yes is click, then Kill "C:\test.txt", otherwise Form7.close
End Sub

any ideas how it can be done guys?

[Joacim Andersson]

Private Sub Command1_Click()
    If MsgBox("Are you sure you want to remove the file?", vbYesNo + vbQuestion) = vbYes Then
        Kill "c:\test.txt"
    Else
        Unload Form7
    End If
End Sub

[Pradeep1210]

Private Sub Command1_Click()
    'msgbox here asking 'are you sure you want to remove the file with yes/no button, if yes is click, then Kill "C:\test.txt", otherwise Form7.close
    If vbYes = MsgBox("Are you sure you want to remove the file?", vbYesNo + vbQuestion) Then
        Kill "C:\test.txt"
    Else
        Unload Form7
    End If
End Sub
 
EDIT:
Joacim wins  :D

[vincentg]

I dont know what you mean... Hope am right with this one.

Dim lnAns as Integer
 
lnAns = Msgbox ("Is this are you looking for?",vbYesNo + vbQuestion)
 
If lnAns = 7 'No
  .....<process something>
Else
   .....<process something>
End If