Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _    (ByVal lpBuffer As String, nSize As Long) As Long' The name of the interactive userFunction UserName() As String    Dim buffer As String * 512, length As Long    length = Len(buffer)    If GetUserName(buffer, length) Then        ' returns non-zero if successful, and modifies the length argument        UserName = Left$(buffer, length - 1)    End IfEnd Function