¿Cadena numérica no alternativa en Visual ?

Estoy trabajando un formulario de Visual con excel.

Tengo un label llamado ID y un textbox1, al darle doble click en el textbox1 me aparece un numero que es el ID del producto dentro del mismo TextBox1 y para eso use esta formula y funciona bien me da numero consecutivos porque siempre va sumando en uno en uno y lo coloca dentro del mismo TextBox:

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

range("A2") = range("A2") + 1 Then
TextBox1 = range("A2")

End Sub

PERO...

Cada vez que le doy doble click al textbox1 me genera un numero por ejemplo 6 y ya lleno otros campos de mi form y le doy guardar y ya en excel se guarda y si le doy otra vez doble clik a textbox me manda el 7 y si no le doy registrar y cierro el form, cuando lo vuelvo abrir y doy otro doble click en el textbox me manda ahora el numero 8, Osea que el numero 7 ya lo dio por registrado mas sin embargo en excel no aparece el 7 porque nunca le di registrar y eso ocasiona que me vaya dejando numeros sin haber sido registrados.

¿Cómo le hago para que me de los números que no están registrados?