[ACCESS + VBA] utilizzo funzioni per semplificare il codice

[GoTeNsSj4]

Salve a tutti... io ho una funzione in vba di questo tipo:

Private Sub ind1_Click()
    num = CInt(N1.Caption)
    If (num > 0) Then
        num = num - 1
        N1.Caption = num
    End If
    TOT1.Caption = num * P1
    calcola
End Sub

e poi ho un'altra funzione identica, nella quale cambia solo un numeretto:

Private Sub ind2_Click()
    num = CInt(N2.Caption)
    If (num > 0) Then
        num = num - 1
        N2.Caption = num
    End If
    TOT2.Caption = num * P2
    calcola
End Sub

e' possibile fare in modo di fare un'unica funzione richiamabile impostandogli un parametro in input, senza dover ogni volta modificare tutti i valori per tutte le funzioni che mi servono?! Dovrei fare 30 funzioni, il tempo che ci vuole per modificare 30 funzioni sostanzialmente identiche è lungo!

Grazie a tutti!