Visual Basic.NET - LosFocus - Bucle sin fin

Buenas.

Tengo el siguiente codigo en VB6:

Private Sub Combo1_LostFocus()
If Not IsNumeric(Combo1.Text) Then
MsgBox "No es un numero"
Combo1.SetFocus
End If
End Sub

Y tengo este en VB2005:

Private Sub ComboBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.LostFocus
If Not IsNumeric(ComboBox1.Text) Then
MsgBox ("No es un numero")
ComboBox1.Focus()
End If
End Sub

Pues resulta que, mientras en VB6 el foco vuelve al control y hasta que no vuelva a perder el foco no aparece de nuevo el mensaje, en VB2005, al perder el foco la primera vez, se convierte en un bucle sin fin y aparece el mensaje de forma continuada.

¿Como controlo que no salga el mensaje continuamente?

Gracias.

Pues eso, el mismo codigo en el evento Leave el ComboBox1 funciona correctamente.