Mauro Coutinho !!!

o esquema que você montou é quase que exatamente o que preciso

as plan que faço para meu trabalho, algumas preciso de varios formularios em uma so, para automatizar e ganhar tempos em inserir os dados nela
Utilizo textbox de Texto, CNPJ, Inscr., CPF, RG, CEP, Valor de moeda, etc, e muitas textbox de telefones

o que preciso é tipo, criar uma rotina, configurando o formato que quero cada uma dessas em um modulo de alguma forma, e no formulario, eu chamar essa rotina,
assim ganhando tempo tambem de nao precisar ficar digitando novamente toda a rotina, as vez uma um detalhe de alguma rotina, nao precisar novamente buscar uma por uma e editar

o modelo que o você apresentou, é fazer com que todas as textbos recebam a mesma rotina
quero separar nesse seu modelo, cada textbox receber rotinas diferente, tipo essas que expecifiquei

tem como isso ?

Olá!
Veja se o modelo de código abaixo atende a sua necessidade:

Option Explicit
Dim KeyA As String
Dim sAddress As String

Private Sub Txt_VALOR_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyA = KeyAscii
digitos_Permitidos
KeyAscii = KeyA

End Sub

Private Sub Txt_VALOR_AfterUpdate()
Digitação_Formato
End Sub

Private Sub Txt_VALOR_Change()
sAddress = "A1"
Digitação_Planilha
End Sub

Private Sub digitos_Permitidos()

Select Case KeyA
Case 44
On Error GoTo nextcase
If WorksheetFunction.Find(",", Txt_VALOR.Text, 1) > 1 Then
KeyA = 0
End If
nextcase:
Case 48 To 57
'48 To 57 = CARACTERS NUMERICOS
'44 = VIRGULA

Case Else
KeyA = 0
'TRAVADO TODO O RESTO DE CARACTERS
End Select

End Sub

Private Sub Digitação_Formato()
Me.ActiveControl.Text = Format(Me.ActiveControl.Text, "Currency")
End Sub

Private Sub Digitação_Planilha()
'VAI INSERIR DADOS AO MESMO MOMENTO QUE DIGITA DA TXT, INSERÇÃO NA PLANILHA SELECIONADA E ATIVA
ThisWorkbook.ActiveSheet.Range(sAddress).Value = CCur(Me.ActiveControl.Text)
End Sub

Para o Evento AfterUpdate é só chamar o procedimento.
Para o Evento KeyPress é necessário jogar a variável KeyPress em outra variável string para então chamar o procedimento e depois fazer o inverso.
Para o Evento Change é necessária dizer a célula de destino.
Deixe tudo no mesmo módulo.
Não sei se é a melhor maneira, mas em meus testes funcionou. Eu ainda implementei uma melhoria no seu código do Keypress para não permitir inserir duas vírgulas.
Abraços!