Access VisualBasic Script

Sub ImportXML(path As String)
  Application.ImportXML DataSource:=path, ImportOptions:=acStructureAndData
End Sub