Scusate il titolo ma non so come spiegarlo.

Praticamente devo far si che in un form linkato ad un DataBase quando faccio invio da un textbox un label prenda lo stesso numero che è nella textbox ( e fino a qui ci sono riuscito tranquillamente) il problema è che gli ID devono essere a 4 cifre e se ad esempio un ID è 1 esce fuori
0001
e fino a qui tutto bene
ma nel momento in cui inserisco un numero a 2 cifre ES. : 25
invece di scrivermi 0025 mi scrive cmq 00025
ho provato in mille modi, vi scrivo qui sotto il tentativo mio, anche se sicuramente è totalmente errato
codice:
If txtNumero = Len(txtNumero.Text) = 2 Then
    txtID.Text = "00" & (txNumero.Text + 1)
    Else
txtID.Text = "000" & (txtNumero.Text + 1)
Spero possiate aiutarmi