コントロールを配列のようにまとめて操作したい

Question

VB2019でフォーム上にボタンコントロール100個がすでに配置されているとき、
以下のようなイベント

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = Button1.Text
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = Button2.Text
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = Button3.Text
End Sub

…

Private Sub Button100_Click(sender As Object, e As EventArgs) Handles Button100.Click
TextBox1.Text = Button100.Text
End Sub

これを簡潔に記述するにはどうすればいいのでしょう？

Private Sub Button(i)_Click(sender As Object, e As EventArgs) Handles Button(i).Click

　　TextBox1.Text = Button(i).Text

　next

のような感じにしたいです。