السلام عليكم
استاذ عبد العزيز "سقط سهواً منك
If MsgBox("åá ÃäÊ ãÊÃßÏ ÃÎí ÚÈÏ ÇáÑÍãä ãä ÍÐÝ ÓØÑ ÇáßæÏ ÑÞã " & ComboBox1.Text, vbQuestion + vbYesNo) Then
تبديل الي هذا السطر حتي لا يتم الحذف بكلمة " لا "
If MsgBox("åá ÃäÊ ãÊÃßÏ ÃÎí ÚÈÏ ÇáÑÍãä ãä ÍÐÝ ÓØÑ ÇáßæÏ ÑÞã " & ComboBox1.Text, vbQuestion + vbYesNo) = vbYes Then