Nachfrage vor dem Löschen

Private Sub CommandButton1_Click()
'Dieser Code löscht einen Listeneintrag
If ComboBox1.ListIndex > 0 Then
Rows(ComboBox1.ListIndex + 1).Delete
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
UserForm_Initialize
End If
End Sub

Leider ist aber so, dass gelöscht wird, ohne die Chance, es sich anders zu überlegen. Ich würde gerne eine Nachfrage einbauen, z.B. mit sowas wie
If antwort = vbOK Then
, weiß aber nicht wie. Wie müsste der Code dazu aussehen?
Gruß
Erdogan