user id added to file name

Hello All,

I'm trying to add the user name(windows login ID) to the two txt files from the code. Any help would be great!!


sLANPath = "C:\Macro Message Files\"
reportdate=CVar(Date)
hypendate = Format(reportdate,"mm-dd-yyyy")
EffectiveDate = Format(reportdate, "mm/dd/yyyy")

open sLANPath & "ErrorMessage NPN -" & hypendate & ".txt" for APPEND as #2 'file contains Errors'
open sLANPath & "Processed NPN -" & hypendate & ".txt" for APPEND as #3 'file contains processed good'