Hola, la verdad es que la considero una pregunta sin sentido ya que lo que en realidad debes hacer es una sub indicependiente y que cada Boton la llame.
Código:
Sub MiCodigo ()
' El Codigo
End Sub
Private Sub Boton1_Click()
Call MiCodigo
End Sub
Private Sub Boton2_Click()
Call MiCodigo
End Sub
O tienes la posibilidad de crear una matriz de Controles con lo que tendrias
Código:
Private Sub Boton_Click(Index As Integer)
'El Codigo
End Sub
Saludos