如何解决使用vba下载图像时出错？

如何解决如何解决使用vba下载图像时出错？

我尝试从 URL 下载图像并且它正常工作。
但如果它在 64 位计算机上运行，​​则会出现错误消息
“隐藏模块中的编译错误：模块 10。 当代码与版本、平台不兼容时，通常会出现此错误"

我不知道该怎么办，有什么想法吗？
这是我的代码

Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" _
  Alias "URLDownloadToFileA" (ByVal pCaller As Long,_
  ByVal szURL As String,ByVal szFileName As String,_
  ByVal dwReserved As Long,ByVal lpfnCB As Long) As Long
Dim Ret As Long

Sub Download()
   
    
    Dim strPath As String
    Dim FolderName As String
    Dim x As Integer
    Dim i As Long
    Dim sData As Worksheet: Set sData = Sheets("Sheet17")
    
    Application.displayAlerts = False
 
    FolderName = "C:\Try"
 
    With sData
    For i = 1 To 100
        For x = 5 To 12
        Application.Calculation = xlCalculationManual
            If Sheet17.Cells(i,x).Value <> "" Then
                strPath = FolderName & "\" & i & "-" & x - 4 & ".jpg"
                Ret = URLDownloadToFile(0,Sheet17.Cells(i,x).Value,strPath,0)
            End If
        Next x
    Next i
    Application.Calculation = xlCalculationAutomatic
    End With

    
Application.displayAlerts = True
End Sub