CSV Text Makro funktioniert nicht mehr

Hallo zusammen,

ich habe ein Problem mit meinem geschätzten "Excel Text/CSV Makro".
Bis gestern lief es noch einwandfrei und heute funktioniert es auf einmal nicht mehr.
Ich habe gestern "nur" das aktuelle Windows 10 Update eingespielt, kann es damit zusammen hängen?
Hat einer eine Idee, was ich machen kann, damit es wieder läuft?

Sub InDatei_exportieren()

Dim FSO As New FileSystemObject
Dim F As TextStream
Dim Z As Range 'Z wie Zelle
Dim Elt
Dim Text As String

Const cPfad = "C:\..."
Const cDateiname = "datei.csv"

    With Worksheets("build_request")
        Set F = FSO.CreateTextFile(cPfad & cDateiname, Overwrite:=True)
        For Each Z In Range(.Range("E1"), .Cells(.Rows.Count, "E").End(xlUp))
            Text = ""
            For Each Elt In Z.EntireRow.Range("E1:P1")
                Text = Text & ";" & Elt.Text
            Next
            F.WriteLine Mid(Text, 2)
        Next
        F.Close
    End With
End Sub