Visual Basic.NET - Como detectar qué botón ha sido pulsado

Private Sub Boton_Click(sender As Object, e As EventArgs) Handles Boton1.Click, Boton2.Click, Boton3.Click, Boton4.Click, Boton5.Click, Boton6.Click, Boton7.Click, Boton8.Click, Boton9.Click, Boton10.Click ..... Boton49.Click, Boton50.Click

    Dim Boton As Button = CType(sender, Button)

    MsgBox(Boton.Text)

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

    For Each Control In Me.Controls

        If TypeOf Control Is Button Then

            Dim Btn As Button = CType(Control, Button)

            If Btn.Name.StartsWith("Boton") Then

                AddHandler Btn.Click, AddressOf Me.Boton_Click

            End If

        End If

    Next

End Sub

Private Sub Boton_Click(sender As Object, e As EventArgs)

    Dim Boton As Button = CType(sender, Button)

    MsgBox(Boton.Text)

End Sub