VB6 exportando numéricos como texto para o Excel

Hey galera, estou desenvolvendo uma aplicação onde eu mando o conteúdo de um recordset para o Excel

mas quando eu exporto os números aparecem como texto, e se eu usar funções do excel(como "=VALOR(texto)") no VB aparece o erro "#NUM"

A parte do programa em que eu exporto:

EwkS.Range("A" & i + lin).Value = rsDup("cod")

EwkS.Range("B" & i + lin).Value = rsDup("nome")

EwkS.Range("C" & i + lin).Value = rsDup("fatura")

EwkS.Range("D" & i + lin).Value = rsDup("parcela")

EwkS.Range("E" & i + lin).Value = Format(rsDup("valor"), "###,###,##0.00")

somaTotal = somaTotal + rsDup("valor")

EwkS.Range("F" & i + lin).Value = fmtDatMy(rsDup("dtvenc"))

nessa linha eu mando o valor, sendo esse campo Double, e no Excel chega como texto, se alguém puder me ajudar eu agradeço MUITO, mas MUITO mesmo!