Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
 
        Dim Message As String = "wollen Sie fortfahren?"
        Dim Caption As String
        Dim Buttons As MessageBoxButtons = MessageBoxButtons.YesNo
        Dim Icon As MessageBoxIcon = MessageBoxIcon.Question
        Dim Result As DialogResult
 
        'Displays the MessageBox
        If neuDS = True Then
            Caption = "Die Eingabe wird nun abgebrochen"
        Else
            Caption = "Dieser Datensatz wir nun gelöscht"
        End If
 
        Result = MessageBox.Show(Message, Caption, Buttons, Icon)
 
        If Result = System.Windows.Forms.DialogResult.Yes Then
            If neuDS = True Then neuDS = False
            AlteZählerstände_ausblenden()
            Me.BackColor = SystemColors.Control
 
        Else
            Exit Sub
 
        End If
 
 
    End Sub

Wer aufhört sich zu verbessern, hört auf gut zu sein.