Netzpfadangabe in Makro

Sub Workbook_Open()
Open "C:\log.txt" For Append As #1
Print #1, Environ("Username") _
& vbTab _
& Format(Now, "YYYYMMDD hh:mm:ss")
Close 1
End Sub

habe ich nun ein Problem die .txt datei in ein netzlaufwerk mit entsprechender pfadangabe zu erzeugen
Bsp.:

Sub Workbook_Open()
Open "\\FS\d\Archiv:\log.txt" For Append As #1
Print #1, Environ("Username") _
& vbTab _
& Format(Now, "YYYYMMDD hh:mm:ss")
Close 1
End Sub

Dabei bekomme ich immer Laufzeitfehler 75 "Fehler bei Zugriff auf Datei/Pfad".
Habe ich das Laufwerke gemapt und gebe ich den Laufwerksbuchstaben im Pfad an funktioniert es.
Ich möchte es aber gern unter der pfadangabe machen da ja nciht auf jedem rechner das selbe laufwerk gemapt ist.
danke im vorraus.
gruß