Excelente. Depuração de erros é assim mesmo, no início gastamos um pouco de tempo, mas logo depois com a prática se torna rápido e natural.
A conclusão que tiramos é que seu teste condicional está falhando na primeira comparação, certo? O VBA está avaliando que 7129 expressado como número (quando avalia a expressão de Cells) é diferente do texto presente na caixa de texto (TextBox). Vamos forçar então os dois dados terem o mesmo valor e tentar executar seu código novamente.
Troque a expressão avaliada
Cells(lngRowsCount, "A") = TxtCadastro.Value
por
CStr(Cells(lngRowsCount, "A")) = CStr(TxtCadastro.Value)
A função CStr converte uma expressão em String. Dessa forma, agora estamos comparando String com String.
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
