一个按钮里面包含多个按钮事件，如果一个按钮弹出提示框，下面的按钮事件就不执行怎么写

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  Dim x As Integer = arr1.Count
  Dim i As Integer = TextBox1.Text.Length
  For x = 0 To x - 1
  If arr1.Item(x).text.length <> 12 - i Then
  MessageBox.Show("第" & (x + 1).ToString & "行长度不对")
  End If
  Next
  End Sub

  Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  Dim x As Integer = arr1.Count
  Dim j As Integer
  For x = 0 To x - 1
  For j = 0 To x - 1
  If arr1.Item(x).text = arr1.Item(j).text Then
  MessageBox.Show( arr1.Item(x).text & "有重复！")


  End If
  Next
  Next
  End Sub
  Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

  Button2_Click(sender, e)
  Button5_Click(sender, e)
  Dim x As Integer = arr1.Count
   

  For x = 0 To x - 1
  Dim txt As New TextBox
  txt.Width = 120
  txt.Location = New Point(153, x * 20 + 128)
  TabPage1.Controls.Add(txt)
  arr2.Add(txt)
  arr2.Item(x).text = TextBox1.Text & arr5.Item(x).text
  Next


  End Sub
怎么写啊？？？

EXIT FOR