Private Sub Button_Click() Handles Button1.Click, Button2.Click, Button3.Click
MsgBox()
End Sub

In the button click handler you can identify the button either by name or by label text (the label text is probably more informative depending on how you name your controls)

Dim button As Button = DirectCast(sender, Button)
MsgBox(button.Text & " " & button.Name)