[Resolvido]Configuração de código

Boa noite.
Na minha base de dados temos vários cadastro onde código da forma abaixo
Código de 1 a 9, deverá receber ficar desta maneira ( Código antigo 5 - Código novo 0005)
Código de 10 a 99, deverá receber ficar desta maneira ( Código antigo 15 - Código novo 0015)
Código de 100 a 999, deverá receber ficar desta maneira ( Código antigo 150 - Código novo 0150)
Código acima de 999, deverá receber ficar desta maneira ( Código antigo 1500 - Código novo 1500)

Qdo clico em um registro que esteja no formato antigo, eu clico em alterar ele realiza a alteração no formato novo. Porém quando este registro no formato novo é ele dá erro.
Como faço para que quando o código já estiver formato novo não dee este erro

Olá

Esse erro acontece porque a cadeia de digitos já é de 4;

Faça isto, que resolve;

Código:

'se o conteudo da combo já tiver 4 digitos, passa para a instrução seguinte
    If Len(Me.Id_CodMbo) = 4 Then GoTo 1

Completo:

Código:

Private Sub Btn_Alterar_Click()
    On Error GoTo trata_erro
    'Me.Id_DataAtualizacao.Enabled = False
    'Me.Id_CodProduto.Enabled = False
    'Me.Id_DataAtualizacao = Date
    'Me.Id_DataAtualizacao = Format(Id_DataAtualizacao, "dd/mm/yyyy")If Me.Id_CodMbo < 10 Then
    
'se o conteudo da combo já tiver 4 digitos, passa para a intrução seguinte
    If Len(Me.Id_CodMbo) = 4 Then GoTo 1
    
       If Me.Id_CodMbo < 10 Then
       Me.Id_CodMbo = "000" & Me.Id_CodMbo
     End If
    If Me.Id_CodMbo > 9 And Me.Id_CodMbo < 100 Then
        Me.Id_CodMbo = "00" & Me.Id_CodMbo
    End If
    If Me.Id_CodMbo > 99 And Me.Id_CodMbo < 1000 Then
       Me.Id_CodMbo = "0" & Me.Id_CodMbo
       'Else
           ' Me.Id_CodMbo = Me.Id_CodMbo
    End If
    
'segunda instrução
1:
    Me.Id_AtualCad = Format(Date, "dd/mm/yyyy")
    If IsNull(Me.Id_CodInt) Then
        MsgBox "Selecione registro para alteração.", vbExclamation, "Mensagem"
        Exit Sub
    End If
        '--Variavel de mensagem que recebe valor
    '-- da constante de registro alterado
    vMSG = MSG_UPD
    
    iCmd = Me.Btn_Alterar.Tag
    'Call fnEnableButton(Me, iCmd)
    'Me.Id_Codlog.Enabled = True
    'Me.Btn_Salvar.Enabled = True
    Call fnHabilControl(Me)
    Me.Id_NomeMbo.SetFocus
  
    
    Exit Sub

trata_erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub
    'Me.Btn_Salvar.Enabled = True
End Sub

Boa tarde, e obrigado pela dica