Habe wohl ausversehen den alten Post gelöscht. ??‍??

Ich habe das Problem, dass ich keine digitale Signatur für den Teil " Open "C:\...aktuelles Jahr\" & b For Input As #1" sowie "Line Input #1, Textzeile" erzeugen darf. Dies ist Vorgabe des Systems in dem ich arbeite. Kennt hier jemand eine andere schreibweise die den selben Nutzen/Effekt hat?

'Aufgabe des Makros: Dateien zusammenführen/einlesen, damit alle Dateien in einer Datei für den Import bereitstehen.
Do While b <> ""
    Open "C:\...aktuelles Jahr\" & b For Input As #1
        Do While Not EOF(1)
            Line Input #1, Textzeile
            Cells(a, 1) = Replace(Textzeile, vbTab, "/")
            a = a + 1
        Loop
    Close #1
    b = Dir
Loop