Pesquisar na Comunidade

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