Boa tarde a todos;

Na formatação para adicionar o DD e o número do celular é assim (12)99999-9999. Eu quero adicionar um espaço depois do DD, que fique assim (12) 99999-9999.

Segue abaixo a programação no VBA

Public Tecla As String
Private Sub txtcelular1_Change()

  On Error Resume Next
  If Tecla = 8 Then
     Exit Sub
  End If

  If VBA.Len(txtcelular1.Text) = 1 Then
     txtcelular1 = "(" & txtcelular1
  End If

  If VBA.Len(txtcelular1.Text) = 3 Then
     txtcelular1 = txtcelular1 & ")"
  End If

  If VBA.Len(txtcelular1.Text) = 9 Then
    txtcelular1 = txtcelular1 & "-"
  End If

End Sub

E o arquivo em anexo.

Obrigado