Messagebox не работает правильно

---

Dim ans As DialogResult = MessageBox.Show(Me,"This Invoice will be changes to the new customre Name", "important warning", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
If DialogResult.No Then
    TxtCustNo.Text = OldC_No
    TxtCusName.Text = OldC_Name
    CmbCustName.Visible = False
    CalcChing()
    canclos = True
    Exit Sub
ElseIf DialogResult.Yes Then
    TxtCustNo.DataBindings.Clear()
    TxtCustNo.DataBindings.Add(New Binding("Text", CustomersBindingSource, "CustID", True))
    TxtC_Debit.DataBindings.Clear()
    TxtC_Debit.DataBindings.Add(New Binding("Text", CustomersBindingSource, "Debit", True))
    TxtC_Cridet.DataBindings.Clear()
    TxtC_Cridet.DataBindings.Add(New Binding("Text", CustomersBindingSource, "Cridet", True))
    TxtC_Balance.DataBindings.Clear()
    TxtC_Balance.DataBindings.Add(New Binding("Text", CustomersBindingSource, "Balanc", True))
    TxtCusName.DataBindings.Clear()
    TxtCusName.DataBindings.Add(New Binding("Text", CustomersBindingSource, "CustName", True))
    TxtCusName.Text = CmbCustName.Text
    CmbCustName.Visible = False

Что я уже пробовал:

когда я нажимаю "Да", это ничего не значит
если я заменю условия, чтобы быть "если значение dialogresult.Да тогда" и нажмите "нет" тоже ничего не делать
Я имею в виду, что это касается только первого условия
Как я могу решить эту проблему?
Спасибо заранее

---