Старая книга - куча ошибок

[ru3000]

Есть старая книга, в нее когда-то был засунут выпадающий календарь в виде макросов. Сейчас при открытии этой книги получаю ошибку. Конкретно вот на этом макросе (загорается красным самая верхняя строчка):

Public Declare Function GetCursorPos& Lib "user32.dll" (lpPoint As POINTAPI)
Public Type POINTAPI
x As Long
y As Long
End Type
     
     Public Function MouseX() As Long
     Dim ajsa22fiIOH345HUHIUnasdfuioylBJKYUwenfuiUILBGKUhe234eb77nfjj096 As POINTAPI
100  GetCursorPos ajsa22fiIOH345HUHIUnasdfuioylBJKYUwenfuiUILBGKUhe234eb77nfjj096
103  MouseX = ajsa22fiIOH345HUHIUnasdfuioylBJKYUwenfuiUILBGKUhe234eb77nfjj096.x
     End Function
     
     Public Function MouseY() As Long
     Dim ajsa22fiIOH345HUHIUnasdfuioylBJKYUwenfuiUILBGKUhe234eb77nfjj097 As POINTAPI
106  GetCursorPos ajsa22fiIOH345HUHIUnasdfuioylBJKYUwenfuiUILBGKUhe234eb77nfjj097
109  MouseY = ajsa22fiIOH345HUHIUnasdfuioylBJKYUwenfuiUILBGKUhe234eb77nfjj097.y
     End Function

Что здесь может быть не так? Возможно дело в х32 и х64?
Заранее спасибо.

[VictorM]

Конкретно вот на этом макросе

конкретно не подключена (отсутствует) указанная библиотека.

Lib "user32.dll"

[EducatedFool]

Переделайте код согласно инструкции:
http://excelvba.ru/articles/WinAPI

[ru3000]

Спасибо большое за ссылку.

[doober]

Мысли вслух
Это не напрягает Dim ajsa22fiIOH345HUHIUnasdfuioylBJKYUw enfuiUILBGKUhe234eb77nfjj096 As POINTAPI
возможно стоит заменить например на
Dim Pt As POINTAPI
Да и весь остальной код,легче разобраться будет

[EducatedFool]

Сообщение от doober

Мысли вслух
Это не напрягает
Dim ajsa22fiIOH345HUHIUnasdfuioylBJKYUw enfuiUILBGKUhe234eb77nfjj096 As POINTAPI
возможно стоит заменить например на
Dim Pt As POINTAPI
Да и весь остальной код,легче разобраться будет

Это разработчик кода этого календаря, специально прошелся по нему обфускатором.
Там сотни строк кода, и все так выглядят.
Проще смириться, чем исправлять.
Да и зачем - главное, всё работает.