Brug af Public function i et class object

Hej Alle

Jeg har lavet følgende Public Function module:

Public Function LogFilePath() As String

filnavn = "C:\Temp\Logs\" & fosusername() & Format(Now(), "yyyymmdd_hh_mm_ss") & ".txt"

End Function


Dette har jeg gjort for at jeg ikke skal ændre log-fil stien i flere class objecter.
Men når jeg prøver følgende:

'Create LogFile

Call LogFilePath

'opret - skriv til - luk - Gør fil ReadOnly
With CreateObject("Scripting.FileSystemObject").CreateTextFile(filnavn, False)
.WriteLine ("" & fosusername & "")
.WriteLine ("" & LogMessagetxt2 & LogMessagetxt & "")
.WriteLine "File Created on: " & Date & " " & Time
.Close: End With
SetAttr filnavn, vbReadOnly

Virker det ikke helt som jeg tænkte... HVad gør jeg forkert?