ooo basic и запись в файл

Цель такая записать в txt файл столбец из одной таблицы, потом через запятую второй столбец. Проблема в том, что формат второго столбца числовой, и разделитель дробной части в нем запятая. Мне же надо что бы в файле разделителем была точка. В формате ячейке не нашел ничего подходящего. Из-за этого в макросе я перевожу переменную в string и заменяю запятую на точку, но когда я делаю writeln #n, ad,da он записывает строковое значение в ковычках. Помогите кто чем может Вот текст МакросаSub Maindim sheet as object, cell as objectdim sFileName as Stringdim n as IntegersFileName = "c:\temp.txt"sheet = thisComponent.sheets.getByName("Январь") n =freeFile()open sFileName for output Access Read Write as #nfor i = 17 to 1000cell = sheet.getCellByPosition(1,i)ad = cell.value cell2 = sheet.getCellByPosition(4,i)da = cell2.valueda = Int(da * 100 + 0.5) / 100da = Format(da, "00.00")da = Left(da, InStr(da, ",") - 1) + "." + Mid(da, InStr(da, ",") + 1)if ad = 0 then Goto Errors write #n, ad,daErrors:nextclose #nEnd Sub