Помогите с событием на TextBox - VB

Формулировка задачи:

Проблема такая. У меня в форме есть TextBox. В него я ввожу дату (21.03.12) на Текстбоксе висит событие "change" и запускается процедура:

Private Sub Calendar1_change() 

    Valuta ' запускается макрос валют

End Sub

Проблема в том, что макрос Valuta начинает запускаться сразу, как только я начинаю вводить первую цифру даты и выскакивает ошибка. А хотелось бы, чтобы макрос Valuta запускался после ухода из Текстбокса TAB или Enter или просто активировав другой элемент управления. Пробовал цеплять различные события на TextBox, но кроме change ничего не работает.
Книги:
VB 6.0 Microsoft
VBA 2003 Кузьменко
Не помогли...
Может посоветуете что с фокусом?
Спасибо.

Решение задачи: «Помогите с событием на TextBox»

textual
                            Листинг программы 
                        
                            Private Sub Calendar1_AfterUpdate()

Valuta

end sub