При вводе каждого символа???

при вводе каждого символа в поле необходимо перехватывать управление и проводить рассчет по определенной формуле

Private Sub Поле_Change()
  ' перехватывать управление и проводить рассчет по определенной формуле 
End Sub

пробовал не получается

`,

Private Sub Поле_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
  If (KeyCode = 17) Then
     'xxx
   End If
End Sub

Суть в чем: число 2222 состоит из четырех символов ракция должна быть при вводе 2 (2*х) затем не покидая поля не нажимая энтр после ввода следущей цифры опять реакция(22*х) и т.д.

SOOM

Суть в чем: число 2222 состоит из четырех символов ракция должна быть при вводе 2 (2*х) затем не покидая поля не нажимая энтр после ввода следущей цифры опять реакция(22*х) и т.д.

ну и?
это событие - "ракция", - как раз и есть событие поля Change
точку останова туда (в процедуру "Изменение" поля) поставьте - всё увидите

пробовал Ввожу 2 реакции нет 22 нет 222 и опять нет вот мой код
Private Sub Полиэстер_Change()
Dim Pl As Currency
Pl = [Forms]![фрмАРТСтоимость]![подФорма]![плХлопокЦена]
Me.плПолиэстерИзд = (Me.Полиэстер * Pl) / 1000
End Sub

SOOM

пробовал Ввожу 2 реакции нет 22 нет 222 и опять нет вот мой код End Sub

Private Sub Полиэстер_Change()

Событие Change происходит когда ты полностью завершил ввод и редактирование поля, и определяется это событие по тому, что ты либо ушел с этого поля нажав Tab / переуказав курсором мыши на другое поле / нажал на клавишу Enter.

ну , а в процедуру выполнение программы заходит при изменении в поле Полиэстер?
название поля - точно Полиэстер?
интересует названте контрола - поля, а не поля данных

Может быть в этом дело - .Text?
Me.плПолиэстерИзд = (Me.Полиэстер.Text * Pl) / 1000