Форумы HiProg.com - MS ACCESS, VBA, VB

ник: w.s
Нужно для нескольких texboxoв на форме установить одну и ту же функцию на изменение данных
можно ли как-нибудь объявить в переменных имена texboxoв
Сейчас у меня получается, что для каждого texboxа я пишу почти одно и тоже...
(((

Private Sub txt_chisla_Change()     Dim i As Integer, j As Integer     Dim str As String     j = txt_chisla.SelStart     str = txt_chisla.Text     For i = 1 To Len(str)         If Mid(str, i, 1) Like "[!0-9,.]" Then             str = Left(str, i - 1) & Mid(str, i + 1)         End If     Next i     If str <> txt_chisla.Text Then         txt_chisla = str         txt_chisla.SelStart = j - 1     End If End Sub