Merhaba,
Bu kodları yazmayacaksınız. Modüldeki kodlarda  Declare Function şeklinde kod yazılmış ise bu koda ptrsafe kodu ekleyeceksiniz.

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

kodu 

Declare ptrsafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

şeklinde olacak.

Modülün 64 bit ve 32 bitte çalışabilmesi için ise kod,

#If VBA7 Then

    Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _

  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

#Else

    Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _

  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

#End If

şeklinde düzenlemesi yapılması gerekiyor.  Siz declare içeren tüm kodları yukarıdaki örnekteki gibi düzeltmelisiniz.

Yapamazsanız, çalıştıramadığınız, hata veren uygulamayı yeni konu açarak ekleyin. Yardımcı olmaya çalışalım.