Excel to CSV save function stopped working?

Question

Visual Basic

Used it all the time

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

Everything has always worked without question, and now, a few days ago, the function suddenly stopped working. Tested on 2 PCs. It does not give any errors, it just saves an empty 0 KB file to disk. What happened to the function suddenly?