Искажение данных VBA при передаче в ячейку листа excel

Формулировка задачи:

Добрый день столкнулся с проблемой. Считываю данные из текстового файла в массив После передачи данных из массива на лист в ячейке данные искажены Помогите разобраться в чем ошибка. Запускаю процедуру open_incl_point_file Выбираю текстовый файл: i_447 Зенит 10_00.txt в Итоге в ячейке получается вместо 0,06 показывает 0,0599999986588955

Решение задачи: «Искажение данных VBA при передаче в ячейку листа excel»

textual
                            Листинг программы 
                        
                            Worksheets("data").Cells(index1 + 1, 2) = Round(CDbl(tmp(index1)), 2) 'CSng(tmp_data)