VALIDAR OPTIONBUTTON1 E OPTIONBUTTON2 PARA MSKCPF

SERENO 14/07/2017 11:51:41
#475200

Bom dia,

Tenho um optionButton1 e OptionButton2 e gostaria de validar o CPF e CNPJ para o mesmo maskedBox (mskCPF).

A validação do optionButton1 que é CPF, eu já consegui, que é este:

Private Sub mskcpf_Change()
If Len(mskCPF.Text) > 0 Then
Select Case Len(mskCPF.Text)
Case Is = 11
CPF = Mid(CPF, 1, 3) & [Ô].[Ô] & Mid(CPF, 4, 3) & [Ô].[Ô] & Mid(CPF, 7, 3) & [Ô]-[Ô] & Right(CPF, 2)
If Not calculacpf(mskCPF.Text) Then
MsgBox [Ô]CPF Incorreto![Ô], vbCritical, [Ô]Aviso[Ô]
mskCPF = [Ô][Ô]
mskCPF.Text = [Ô][Ô]
mskCPF.SetFocus
End If
Case Is = 14
End Select
End If

End Sub

Agora preciso colocar o código de validação do CNPJ para o optionButton2 neste mesmo mskCPF, dentro do [Ô]Private Sub mskcpf_Change()[Ô].

Enfim, ao clicar no optionButton1, vai validar o CPF e ao clicar no optionButton2, vai validar o CNPJ.

Conto com a ajuda de vocês.