Что не так с моими файлами KML, из-за чего Google Планета Земля не отвечает?

У меня возникла проблема с зависанием Google Планета Земля как при попытке открыть ее, так и при попытке вставить в нее файлы KML.

Открытие Google Планета Земля:

Иногда, когда я пытаюсь открыть Google Планета Земля, он просто зависает, пока:

Загрузка myplaces.kml, включая включенные оверлеи

Я предполагаю, что эта проблема вызвана тем фактом, что если я суммирую общий размер километров, которые я сохранил в своих местах, они будут где-то около 3 МБ. Когда я ищу свой комп для своих мест, размер этого файла составляет чуть менее 400 КБ. Я предполагаю, что это означает, что Google Планета Земля хранит его в другом формате.
В любом случае, что мне делать? Я действительно предпочел бы хранить все в моих местах в Google Планета Земля, так как каждый файл загружается вечно, но если мне нужно удалить свои места и начать все сначала, я думаю, мне придется это сделать. Кроме того, я не могу просто закрыть Google Планета Земля и снова открыть его, когда он перестает отвечать на запросы, потому что он по-прежнему не работает. Иногда, если я оставлю его на некоторое время, не касаясь его после закрытия, он откроется нормально. Есть идеи, что происходит?

Построение kmls в Google Earth:

Файлы kml, которые я пытаюсь загрузить в Google Earth, варьируются от 67 КБ для файла, содержащего 177 точек, до 454 КБ с 1172 точками. У меня также был файл kml, который я должен был построить, размером 937 КБ, содержащий 2637 точек. В большинстве случаев, чтобы получить файлы для печати, мне приходится редактировать kml с помощью блокнота, удалять все точки, кроме одной, наносить эту точку на график, а затем повторно запускать макрос Excel, чтобы получить полный файл обратно. Затем я рисую его, что вызывает это сообщение:

Вы уверены, что хотите перезагрузить этот файл, все несохраненные изменения будут потеряны?

Затем он начинает нормально рисовать в этот момент. Если я попытаюсь просто дважды щелкнуть файл kml, не выполнив процесс, о котором я только что говорил, Google Планета Земля перестанет отвечать. Вот пример моего кода и образец части файла kml, который он создает.
Любая идея о том, что я могу сделать, чтобы решить эти проблемы?
Будет ли использование шаблона для заполнения данных для кмл работает лучше?

Примечания:

• Я использую Windows XP на своем компьютере. Мой босс использует Vista Business, и обычно у него эта проблема возникает чаще, чем у меня.

• Я знаю, что код довольно уродлив и нуждается в очистке, но мой босс сказал мне не беспокоиться, поскольку то, что я делаю, не будет использоваться в производстве, и сосредоточиться больше на получении файлов, которые ему нужны, чем на создании код более читабелен. Пожалуйста, полегче с уродством.

• Это код, который мне поручили изменить, чтобы получить нужные нам данные, и поэтому я ничего не знаю о том, насколько он эффективен по сравнению с другими методами.

Код:

Sub Create_KML()
REM Builds KML from spread sheet

REM Open File For Random As #1 ' "c:\Users\mwilson\Desktop\Trash.txt
REM Open "c:\Users\mwilson\Desktop\Test Google\Trash.txt" For Output As #1
Open "C:\Documents and Settings\eecoop\Desktop\10 day avg rssi Google kml\MorrisAveOpelikaMIUS.kml" For Output As #1
i = 2
miuID = Range("A" & i).Text
RSSI = Range("C" & i).Text
ColID = Range("G" & i).Text
ColName = Range("F" & i).Text
Address = Range("M" & i).Text & ", Opelika, AL"
Print #1, "<?xml version=""1.0"" encoding=""utf-8""?>"         
Print #1, "<kml xmlns=""http://www.opengis.net/kml/2.2"">"     
Print #1, "<Document>"
While miuID <> ""
If RSSI >= -85 Then
DotColor = "Green.png"
ElseIf RSSI >= -95 Then
DotColor = "Yellow.png"
ElseIf RSSI >= -105 Then
DotColor = "Orange.png"
Else
DotColor = "Red.png"
End If

Print #1, "   <Placemark>"                                        '3
Print #1, "     <name>"; RSSI; " / "; ColID; "</name>"                        '4
Print #1, "     <description>"; miuID; " Owned by "; ColName; "</description>"                        '4
Print #1, "        <Style>"                                     '5
Print #1, "           <IconStyle>"                              '6
Print #1, "               <scale>.6</scale>"                    '7
Print #1, "               <Icon>"                               '8
Print #1, "                  <href>"; DotColor; "</href>"           '9
Print #1, "               </Icon>"                             '10
Print #1, "            </IconStyle>"                            '11
Print #1, "        </Style>"                                     '12
Print #1, "     <address>"; Address; "</address>" '13
Print #1, " </Placemark>"                                        '14

i = i + 1
miuID = Range("A" & i).Text
RSSI = Range("C" & i).Text
ColID = Range("G" & i).Text
ColName = Range("F" & i).Text
Address = Range("M" & i).Text & ", Opelika, AL"
Wend
Print #1, "</Document>"
Print #1, "</kml>"                                               '15
Print #1, " "
    Close #1
    
End Sub

КМЛ:

<?xml version="1.0" encoding="utf-8"?>
<kml xmlns="http://www.opengis.net/kml/2.2">
<Document>
   <Placemark>
     <name>-108 / 4</name>
     <description>110001124 Owned by Morris Ave.</description>
        <Style>
           <IconStyle>
               <scale>.6</scale>
               <Icon>
                  <href>Red.png</href>
               </Icon>
            </IconStyle>
        </Style>
     <address>3501 BIRMINGHAM HWY, Opelika, AL</address>
 </Placemark>
   <Placemark>
     <name>-95 / 4</name>
     <description>110001146 Owned by Morris Ave.</description>
        <Style>
           <IconStyle>
               <scale>.6</scale>
               <Icon>
                  <href>Yellow.png</href>
               </Icon>
            </IconStyle>
        </Style>
     <address>2100 INDUSTRIAL BLVD, Opelika, AL</address>
 </Placemark>