il tuo codice è errato prima di tutto perchè manca la chiusura dell'if e poi perchè la condizione non è corretta.

Questo è il codice aggiustato:
- Text1 è la text box contenente il codice
- Label1 è la label in cui scrivo il codice con gli zeri
codice:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    ' verifica che il tasto cliccato sia "Invio"
    If KeyCode = vbKeyReturn Then
        If Len(Text1.Text) = 2 Then
            Label1.Caption = "00" & (Text1.Text + 1)
        Else
            Label1.Caption = "000" & (Text1.Text + 1)
        End If
    End If
End Sub
Fammi capire una cosa: perchè metti "+ 1" se devi ottenere lo stesso numero della text solo preceduto dagli zeri? Così come hai scritto, se nella Text ci sta 2 nella Label otterrai 0003... :master: