TextBox

Bonjour,

Comment passer un TextBox en argument dans une fonction, S.V.P. ?

Merci d'avance

ex de ce que je cherche à faire

Function Valeur_Ok (Zone as TextBox) as Boolean
If Zone.value <> 5 ...........
End Function

Sub TextBox1_Change()
Ret =Valeur (TextBox1)
End Sub

Sub TextBox2_Change()
Ret =Valeur (TextBox2)
End Sub

etc...

Merci d'avance.

EX-CNRE