une private sub peut-elle concerner 2 textbox

bonjour,
très novice, ce code concerne le code postal. peut-il être utilisé par 2 textbox simultanément
textbox Dpt et textbox CP

Private Sub CP_Change()
Dim nc As Boolean
If tb9.Value = "" Then Exit Sub
If IsNumeric(tb9.Value) Then
If Len(tb9.Value) > 5 Then nc = True
Else
nc = True
End If
If nc Then
MsgBox "Le code postal comprend 5 chiffres !", vbInformation, "Code postal non conforme"
tb9.Value = ""
End If
End Sub

en vous remerciant