aggiungi alla funzione un parametro, che possa identificare il pulsante, e all'interno della funzione lo controlli per decider quale pulsante è stato premuto, in pratica:
codice:
Function TuaFunzione (Parametro1, Parametro2, Pulsante As CommandButton) As String / Integer / Long / etc..
Select Case Pulsante.Name
Case "Pulsante1"
[codice da eseguire]
Case "Pulsante2"
[codice da eseguire]
Case "Pulsante3"
[codice da eseguire]
Case "Pulsante4"
[codice da eseguire]
End Select
End Function
negli eventi click dei vari pulsanti quindi:
codice:
Private Sub Pulsante1_Click()
A = TuaFunzione 1, 2, Pulsante1
End Sub
Private Sub Pulsante2_Click()
A = TuaFunzione 1, 2, Pulsante2
End Sub
etc...
ancora meglio se i pulsanti fanno parte di una matrice di controlli, perchè ti basterebbe passare solo l'indice.
Boolean