FORMATAÇÃO NUMERO VBA

[JOSENILDO ALMEIDA]

Prezados, bom dia!
Gostaria de uma ajuda na criação de um código em VBA que atenda a seguinte situação.

Ao digitar em uma célula uma sequencia numérica, automaticamente a mesma deve ser convertida para um formato específico, conforme abaixo:

Sequencia a ser digitada: 00124319320145010205 (20 caracteres)
Na célula deve aparecer no seguinte formato: 0012431-93.2014.5.01.0205
Qualquer outro dado diferente de número, deve retornar como erro.

Agradeço a atenção.
Cordialmente,

Josenildo Almeida

[Wagner.cwb]

Boa noite,

fiz uma tentativa rápida aqui e ficou assim:

substitui tsl pela sua variável.

TSL = Format(TSL, "#######-##,####,#,##,####")