[Resolvido]Substituir o preço em codigos (mascara)

Gostaria de ajuda dos amigos pois sou iniciante para resolver este problema. Onde tenho uma tabela de produtos e queria mascarar os preços.

PREÇO_VENDA: 120,00
PREÇO_MASC: JKS,SS

CONVERSAO

J=1
K=2
L=3
M=4
N=5
O=6
P=7
Q=8
R=9
S=0

Código:

    Dim tamPreco As Integer
    Dim precoOculto As String
   
    tamPreco = Len(Me.Texto0)
   
    For i = 1 To tamPreco
       
        Select Case Mid(Me.Texto0, i, 1)
       
        Case 1
            precoOculto = precoOculto & "J"
        Case 2
            precoOculto = precoOculto & "K"
        Case 3
            precoOculto = precoOculto & "L"
        Case 4
            precoOculto = precoOculto & "M"
        Case 5
            precoOculto = precoOculto & "N"
        Case 6
            precoOculto = precoOculto & "O"
        Case 7
            precoOculto = precoOculto & "P"
        Case 8
            precoOculto = precoOculto & "Q"
        Case 9
            precoOculto = precoOculto & "R"
        Case 0
            precoOculto = precoOculto & "S"
        Case ","
            precoOculto = precoOculto & ","
           
        End Select
   
    Next
   
    Me.Texto0 = precoOculto

tentei anexar exemplo mas não está indo

Por favor !!! coloco no botao ?

Esse é um exemplo simples, eu fiz colocando no evento após atualizar da caixa de texto com nome Texto0

Você tem que adaptar a sua necessidade.

Nao conseguir colocar para funcionar!!! Quem poder me ajudar eu agradeço

Veja se ajuda, com parte da dica acima;

Obrigado meu amigo

Obrigado pelo retorno o forum agradece.