Visual Basic A vírgula nao sai na célula quando inserida na txtbox

[Aron Gerd Ristow Filho]

quando eu insiro um valor como 70,456 na minha textbox, e dou um salvar, o valor que aparece na celula designada é 70456, a célula simplesmente nao adere a vírgula, eu uso a linha de comando que vou postar abaixo para converter em número, porém, esse comando so esta aceitando a vírgula ate duas casas depois.

 

For Each cell In [K5:K12]
       If cell > "" Then
       numero = CDbl(cell.Value)
       cell.Activate
      ActiveCell.FormulaR1C1 = numero

lembrando que nao posso apenas adicionar uma formatação com vírgula, para dar somente o efeito visual de vírgula, pois mensalmente eu tenho que gerar um relatório com esses valores e após isso gerar uma carta de CEP.