Упрощение кода в случае, когда кнопок много, а процедуры у них схожи

 Private Sub Button21_Click(sender As System.Object, e As System.EventArgs) Handles Button21.Click
        'Вставить в буфер обмена
        clp_pairs = "Pair № 11: " & Button21.Text & " vs " & Button22.Text
        PrintMessage(clp_pairs & "copy to clipboard")
        PlaySound(My.Resources.DRIP)
        My.Computer.Clipboard.SetText(clp_pairs)
    End Sub

    Private Sub DarKxXxLorD(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
        'Code
    End Sub

    Private Sub DarKxXxLorD(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox(sender.text)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For I As Integer = 1 To 5
            AddHandler Me.Controls("Button" & I).Click, AddressOf DarKxXxLorD
        Next
    End Sub

        TextBox1.SelectionStart = TextBox1.TextLength
        TextBox1.ScrollToCaret()

        Try
 MsgBox(sender.text)
        Catch ex As Exception
 
        End Try

My.Computer.Clipboard.SetText("22222222222")

Private Sub DarKxXxLorD(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
        'Code
    End Sub

Sender.Name

ByVal sender As System.Object

ByVal sender As Button