Bom dia!!

Veja se te ajuda

Private Sub Text1_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case 8       'Aceita o BACK SPACE
      Case 13: SendKeys "{TAB}"    'Emula o TAB
      Case 48 To 57
         If Text1.SelStart = 2 Then Text1.SelText = "."
         If Text1.SelStart = 6 Then Text1.SelText = "."
         If Text1.SelStart = 10 Then Text1.SelText = "/"
         If Text1.SelStart = 15 Then Text1.SelText = "-"
      Case Else: KeyAscii = 0     'Ignora os outros caracteres
   End Select
End Sub

aproveite também para definir a propriedade MaxLength para 18 que é o tamanho máximo do CNPJ com a máscara.

Bom dia Alexandre,

Aonde estou errando???

Private Sub txtCNPJ_KeyPress(KeyAscii As Integer)

Select Case KeyAscii
Case 8 'Aceita o BACK SPACE
Case 13: SendKeys "{TAB}" 'Emula o TAB
Case 48 To 57
If txtCNPJ.SelStart = 2 Then txtCNPJ.SelText = "."
If txtCNPJ.SelStart = 6 Then txtCNPJ.SelText = "."
If txtCNPJ.SelStart = 10 Then txtCNPJ.SelText = "/"
If txtCNPJ.SelStart = 15 Then txtCNPJ.SelText = "-"

Case Else: KeyAscii = 0 'Ignora os outros caracteres

End Select
End Sub

BOm dia!!
Já tem algo assim no seu código?

If Len(TextBox2) = 2 Then TextBox2 = TextBox2& "."
If Len(TextBox2) = 6 Then TextBox2 = TextBox2& "."
If Len(TextBox2) = 10 Then TextBox2 = TextBox2& "/"
If Len(TextBox2) = 15 Then TextBox2 = TextBox2& "."

Bom dia!!
Tente adaptar, caso não consiga poste seu arquivo!!
Veja também.

http://www.tomasvasquez.com.br/forum/vi ... 5&start=30
Att

Alexandre,

Estou anexando o arquivo para vc dar uma olhada, o formulario seria o cadastroclientes, obrigado.
Sei que e uma coisa simples, mas nao estou conseguindo fazer sozinho.

Fabio

Aqui no Forum temos alguns tópicos sobre este tipo de formatação entre outros :

By Pesquisa no Forum Planilhando :
Pesquisa resultou em 56 ocorrências: cnpj
search.php?keywords=cnpj

Pesquisa na Net :
Fomatar TextBox Eventos KeyPress e Change
http://www.tomasvasquez.com.br/forum/vi ... =17&t=1505

[]s

Bom dia!!
Veja meu exemplo.

Tive problemas com seu anexo, agora é copiar e colar para seu projeto.

Obs: Veja que o nome da minha TextBox é CNPJ

Não se esqueça da mãozinha

Obrigado aos senhores,

E ate a proxima duvida, que tem sido muitas, mas o aprendizado segue na mesma velocidade, a cada dia quero descobrir uma coisa nova para melhorar, sei que nao tenho uma grande velocidade de entendimento, mas aqui neste forum tenho encontrado a soluçao para 99% dos meus problemas.

Valeu mestre Mauro.

Bom dia!!
Obrigado pelo retorno!!

At+++