Formatar Textbox Excel VBA para CPF ao Digitar

[@negreirosjp5880]

Posso te enviar um código para testar?

[@CanalSGP]

Boa noite, se for dúvida pode postar os códigos nos comentários.

[@negreirosjp5880]

@@CanalSGP Na verdade queria uma opinião sincera sobre meu código, talvez algo pra melhorar se puder testar, talvez em vídeo quem sabe, caso esteja disposto, leve em consideração aqueles valores que lhe dei estando presentes apenas na célula A1:
"12/12/2012 12345 JOÃO PEDRO NEGREIROS CARTÃO DE CRÉDITO 1 525,50"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
Range("B1").Select
Do
If ActiveCell.Value "CARTÃO" Then
ActiveCell.Offset(0, 1).Select
Else
ActiveCell.Offset(0, -1).Select
Exit Do
End If
Loop
Dim FIMN As String
FIMN = ActiveCell.Value
Dim coll As Integer
coll = 1
Do Until Cells(1, coll).Value = FIMN
coll = coll + 1
If coll > Columns.Count Then Exit Do
Loop
If coll Columns.Count Then Exit Do
Loop
If col

[@negreirosjp5880]

@@CanalSGP *Parte 1 do comentário*
Na verdade queria uma opinião sincera sobre meu código, talvez algo pra melhorar se puder testar, talvez em vídeo quem sabe, caso esteja disposto, leve em consideração aqueles valores que lhe dei estando presentes apenas na célula A1:
"12/12/2012 12345 JOÃO PEDRO NEGREIROS CARTÃO DE CRÉDITO 1 525,50"

[@negreirosjp5880]

@@CanalSGP *Parte 1 do comentário*
Na verdade queria uma opinião sincera sobre meu código, talvez algo pra melhorar se puder testar, talvez em vídeo quem sabe, caso esteja disposto, leve em consideração aqueles valores que lhe dei estando presentes apenas na célula A1:
"12/12/2012 12345 JOÃO PEDRO NEGREIROS CARTÃO DE CRÉDITO 1 525,50"

[@negreirosjp5880]

@@CanalSGP pelo código ser grande o TH-cam não está permitindo:/