Visual Basic - Ayuda por favor -VB- ......urgente

Hola
tengo el siguiente problema : dos campos text.....en el primero nesecito asignar el año en curso "02" ....en el otro neseito asignar un numero consecutivo que vaya de "000" a "999"...... cada vez que vaya a registrar una compra aparezca automaticamente........despues al pasar al año "03" el cual tambien se va a cambiar automaticamente, el numero consecutivo vuelve de nuevo a "000" como le hago........

Para el primer caso el año se extrae asi:

Campo1.Text = Year(date()) - 2000

Ahora, para que mantengas un numero consecutivo tendrias que pensar que debe estar grabado para poder recuperar siempre el ultimo, a menos que desees buscar dentro de los datos grabados.

Si deseas saber como hacer esto ultimo enviame un correo y con gusto te ayudare.

Saludos desde Lima