Функция сохранения из экселя в CSV перестала работать - VBA

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

Всё время пользовался функцией

Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
    On Error Resume Next: Err.Clear
    Set FSO = CreateObject("scripting.filesystemobject")
    Set ts = FSO.CreateTextFile(filename, True)
    ts.Write txt: ts.Close
    SaveTXTfile = Err = 0
    Set ts = Nothing: Set FSO = Nothing
End Function

Всегда всё работало без вопросов, и вот, несколько дней назад функция вдруг перестала работать. Проверял на 2 ПК. Никаких ошибок не даёт, просто сохраняет пустой файл 0 KB на диск. Что с функцией не так стало вдруг?

Решение задачи: «Функция сохранения из экселя в CSV перестала работать»

textual
                            Листинг программы 
                        

                            Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
  On Error Resume Next
  Err.Clear
  Set FSO = CreateObject("scripting.filesystemobject")
  Set ts = FSO.CreateTextFile(filename, True)
  ts.Write txt
  ts.Close
  SaveTXTfile = (Err.number = 0)
  Set ts = Nothing
  Set FSO = Nothing
End Function
                        