info macro for MAC OS import html jpeg

Hi,
thanks in advance, I had for windows this macro to import html jpeg on my computer:

Sub Test2()
Dim i As Long
Dim FileNum As Long
Dim FileData() As Byte
Dim MyFile As String
Dim WHTTP As Object

On Error Resume Next
Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5")
If Err.Number <> 0 Then
Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")
End If
On Error GoTo 0

If Dir("D:\MyDownloads", vbDirectory) = Empty Then MkDir "D:\MyDownloads"

For i = 1 To 10
MyFile = Cells(i, 1).Text
TempFile = Right(MyFile, InStr(1, StrReverse(MyFile), "/") - 1)
WHTTP.Open "GET", MyFile, False
WHTTP.Send
FileData = WHTTP.ResponseBody

FileNum = FreeFile
Open "D:\MyDownloads" & TempFile For Binary Access Write As #FileNum
Put #FileNum, 1, FileData
Close #FileNum
Next
Set WHTTP = Nothing
MsgBox "Open the folder [ D:\MyDownloads ] for the downloaded file..."
End Sub


I need to do in office for Mac OS X. I copy try the same but i get this message:
Compilation error .:
Expected Function or variable.

Someone can help me? thank you so much!