Load function

[moon]

Hello everyone,

I am trying to run this function on word 2004 on Mac. It works
perfectly fine on pc but creates errors when running it on mac. Can
someone let me know how to fix this? thanks

Public Sub LoadXML(ByRef xmlObject As Object, ByVal xmlPath As String)
On Error GoTo Error_Handler
xmlObject.async = False
xmlObject.preserveWhiteSpace = True
xmlObject.Load (xmlPath)
xmlObject.Load (xmlPath)

Error_Handler:
If Err.Number <> 0 Then
Err.Raise Err.Number, Description:=Err.Description
End If
End Sub