LostFocus Ereignis geht nicht

Private Sub ComboBox5_LostFocus()
Abfahrt = Format((ComboBox4.Value), "######")
Rueckkehr = Format((ComboBox5.Value), "######")
Dauer = Rueckkehr - Abfahrt + 1
TextBox11.Value = Dauer
TextBox9.Value = Dauer - 2
End Sub

Bestimmt ganz einfach, aber ich komm nicht drauf...
Für Hilfe Danke im voraus,

Gruß
Markus