[Resolvido]Imputar máscara de entrada de acordo com a quantidade de dígitos

Olá guerreiros!

Seguinte..

Tenho um campo chamado [Telefone Celular] e gostaria que:

Se fosse inserido 10 números. Ex: 8888888888, ficaria: (88) 8888-8888 (10 dígitos)
Se fosse inserido 11 números. Ex: 88888888888, ficaria: (88) 88888-8888 (11 dígitos)

Isso devido esse novo dígito 9 no estado de SP, ou seja, dependendo do cadastro o telefone vai ter 10 ou 11 dígitos.

Abraço!

Novamente, Krauss
Esta dúvida podia bem estar junto com a outra, por se tratar do mesmo tema
Utilize, Aosair do campo para verificar o tamanho do campo e, conforme o tamanho, formate o campo em consonância

Desculpe abrir outro tópico!

Como fazer isso? Não sou expert ainda..

Abraço!

Krauss,
no acontecimento AoSair:
If isnull(Txttelefone) or TxtTelefone="" Then exit sub
Select case len(TxtTelefone)
Case 10
TxtTelefone=Format("00 0000-0000")
case 11
TxtTelefone=Format("00 00000-0000")
case else
msgbox "Preenchimento incorrecto."
docmd.cancelevent
end select

Funfou...

Obrigado!