errore in definizione funzioni in modulo vba

[mario rossi]

buongiorno a tutti

ho previsto la dichiarazione doppia delle funzioni nei moduli vba perché alcuni pc sono a 64 bit altri a 32, accade però che aprendo la finestra vba in un pc con office 64 bit vedo la parte nell'else in rosso come se non la riconosca
qualche aiuto per capire il motivo?

#If VBA7 Then
Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare PtrSafe Function GetKeyState Lib "User32.dll" (ByVal nVirtKey As Long) As Long
Public Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#Else
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function GetKeyState Lib "User32.dll" (ByVal nVirtKey As Long) As Long
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#End If