VB: Parpadear un Campo de Texto

[guif]

Necesito controlar si en un campo de texto hay un valor igual o superior a 1.
En el caso de que sea 0 el campo se queda tal cual esta, pero si es igual a 1 o superior, el campo tendria que empezar a parpadear (canvio de color)

He intentado con esto pero no me funciona:

Do While (Text1.Text <= 1)
Text1.BackColor = red
Text1.BackColor = white
Loop

Como lo controlo????