Evento LosFocus funciona mal

[titofo]

Tengo un este código:

Private Sub txtNomFor_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNomFor.LostFocus
RNEve.Vldr(txtNomFor.Text, "TEN")
End Sub

Luego cuando entra dentro del LosFocus mostrado anteriormente, pasa a este siguiente LostFocus:

Private Sub txtCUIT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtCUIT.LostFocus
RNEve.Vldr(txtCUIT.Text, "CUI")
End Sub

¿Por qué?