How to call method that handles the Click event for several buttons

Protected Sub AnyClicked(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click

Dim b As Button = CType(sender, Button)

Response.Write("You clicked the button labeled " & b.ID)

End Sub