Número Decimal em VBA com virgula

Pessoal.

Tenho um código de lançamento em CDEC, porém preciso que ele mantenha decimal com vírgula, caso no momento do lançamento a pessoa esqueça.

'Insert the information in row
'****************************************************************
BD_DADOS.Range(“A” & Linha).Value = TXT_ID.Value
BD_DADOS.Range(“B” & Linha).Value = Format(TXT_Data.Value, “mm/dd/yyyy”)
BD_DADOS.Range(“C” & Linha).Value = Format(TXT_Hora.Value, “hh:mm”)
BD_DADOS.Range(“D” & Linha).Value = CDec(TXT_Peso.Value)
BD_DADOS.Range(“E” & Linha).Value = TXT_Pessoas.Value
BD_DADOS.Range(“F” & Linha).Value = UCase(CBX_TipoItem.Value)
BD_DADOS.Range(“G” & Linha).Value = UCase(CBX_Cliente.Value)
BD_DADOS.Range(“H” & Linha).Value = UCase(CBX_Turno.Value)
BD_DADOS.Range(“I” & Linha).Value = UCase(CBX_Dados.Value)