主题：[求助]关于messagebox问题

我箱做个删除提示，按是删除，按否，不删除。为什么我按是和否都删除信息呢。代码如下

Dim Result As DialogResult
 Result = MessageBox.Show("确认要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
 If Result = DialogResult.Yes  Then
     MessageBox.Show("已经删除.","提示")
Else
     MessageBox.Show("按错了,不删除.","提示")
End If
Tables("yuanzhi").Current.Delete