Почему я получаю сообщение об ошибке на MAX_USERNAME

Question

У меня есть макрос, который получает идентификатор пользователя (используя функцию belwo) при открытии файла Excel.Мы использовали этот код в течение многих лет без каких-либо проблем.У меня есть пользователь с Windows 10 (64-разрядная версия), Office 365, Excel 2016 (32-разрядная версия), и строка («ebuff = Space $ (MAX_USERNAME)») выдает сообщение об ошибке (не удается найти проект?).

Константа MAX_USERNAME определяется следующим образом.Будем весьма благодарны за любые предложения по решению этой проблемы.Спасибо за вашу помощь ........

Public Const MAX_USERNAME As Long = 15


Function GetThreadUserName() As String

   Dim ebuff As String
   Dim enSize As Long

   ebuff = Space$(MAX_USERNAME)
   enSize = Len(ebuff)

   If GetUserName(ebuff, enSize) = 1 Then

      eEmpl = UCase(TrimNull(ebuff))
      eEmpl1 = Mid(eEmpl, 2, 5)

      Get_Group

      Exit Function

   End If

End Function