(Resolvido) captura de dados sem arredondamento

[osmarindy]

Boa tarde pessoal,

Estou desenvolvendo uma rotina vba para autocad, onde faz uma busca no desenho capturando todos os itens. Depois para os textos com determinados layers são calculados e exportados para uma planilha excel, mas, não estou conseguindo capturar os dados mantendo as casas decimais. Alguém sabe como consigo fazer isso. Segue trecho do código:

For Each elem In ThisDrawing.ModelSpace

With elem

'captura do layer do texto

Array1 = .Layer

'acrescenta o valor para cada variavel de acordo com o layer

Select Case Array1

Case "texto-cc-poste"

textoCcPoste = textoCcPoste + Val(elem.TextString)

Case "espinado"

espinado = espinado + Val(elem.TextString)

Case "espinadoJunto"

espinadoJunto = espinadoJunto + Val(elem.TextString)

Case "espinadoSemCordo"

espinadoSemCordo = espinadoSemCordo + Val(elem.TextString)

Case "cordoalha"

cordoalha = cordoalha + Val(elem.TextString)

Case "auto"

auto = auto + Val(elem.TextString)

End Select

'incrementa o numero de objetos verificados

count = count + 1

End With

Next elem

[osmarindy]

Resolvido, foi so mudar o tipo de variavel de float para double