Function PC_LoginName() As String PC_LoginName = CreateObject("WScript.Network").UserName End Function