Máscara de Entrada no TextBox - EVENTO KEYPRESS

Segue o código para gerar máscara de entrada para CNPJ e CPF dos dados digitados em um textbox, utilizando evento KeyPress.

 

Código Vba CNPJ:

Private Sub CNPJ_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 8, 48 To 57
                Me.CNPJ.MaxLength = 18 ' Quantidade máxima de caracteres no textbox CNPJ                If Len(CNPJ) = 2 Then CNPJ = CNPJ + "."
                If Len(CNPJ) = 6 Then CNPJ = CNPJ + "."
                If Len(CNPJ) = 10 Then CNPJ = CNPJ + "/"
                If Len(CNPJ) = 15 Then CNPJ = CNPJ + "-"
        Case Else
            KeyAscii = 0
    End Select   
End Sub

Código Vba CPF:

 Private Sub Cpf_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 8, 48 To 57
                Me.cpf.MaxLength = 14  ' Quantidade máxima de caracteres no textbox Cpf

                If Len(cpf) = 3 Then cpf = cpf + "."
                If Len(cpf) = 7 Then cpf = cpf + "."
                If Len(cpf) = 11 Then cpf = cpf + "-"
        Case Else
            KeyAscii = 0
    End Select
End Sub