krz = Form.Name & " silmek istediğinize, emin misiniz?"
If MsgBox(krz, vbYesNo, "aykutc soruyor") = vbYes Then
Bak birde bu kodu denersin kendine göre uyarlarsın