alibey kodlar neredeyse o forma/modüle yazılacak 
mesela "modül1"de aşağıdaki kodlar 64bitte çalışmıyor

Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _

    Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _

    Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long

bu durumda kodu "modül1"e yazacağız. hem 64 hem de 32bitte çalışması için kodu aşağıdaki gibi düzenlemeliyiz

#If VBA7 And Win64 Then '64 bit için kodlar

Declare PtrSafe Function aht_apiGetOpenFileName Lib "comdlg32.dll" _

    Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare PtrSafe Function aht_apiGetSaveFileName Lib "comdlg32.dll" _

    Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare PtrSafe Function CommDlgExtendedError Lib "comdlg32.dll" () As Long

#Else '32 bit için kodlar

Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _

    Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _

    Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long

#End If

bu durumda Access 64 bit olan sistemde 
#If VBA7 Then...
#Else arasındaki kodları 32bitte ise diğer kodları kullanır aradaki tek fark 64bitlik kısımda "ptrsafe" olmasıdır