make sharing module
 

i want to make code module using without control name
the following source code, the number of the "txtMoney" object name is
the 3. i want to make, the number is zero
use the "codemodule","vbe","VBComponents" and so on

Private Sub txtMoney_Change()
If IsNumeric(txtMoney) Then
txtMoney = Format(txtMoney, "#,##0")
End If
End Sub

*** Sent via Developersdex http://www.developersdex.com ***