Sub ImportFromGoogle()
  On Error GoTo EH
  Dim sMessage As String
  Dim bDone As Boolean
  '=======================================================================
  Dim ET As New ETGW_Core
  Dim sInFileName As String
  Dim sOutWorkspace As String
  sInFileName = "C:\00\000_kml\google_data\pirates.kmz"
  sOutWorkspace = "C:\00\000_kml\import_from_google"
  bDone = ET.ImportFromGoogle(sInFileName, sOutWorkspace, sMessage)
  '========================================================================
  If Not bDone Then
    MsgBox sMessage
  Else
    MsgBox "Imported successfully"
  End If
  Exit Sub
EH:
  MsgBox Err.Description
End Sub