这样了:
Dim a As String
a = "<?xmlversion=""1.0""encoding=""UTF-8""?>" & vbcrlf & _
"<kmlxmlns=""http://earth.google.com/kml/2.2"">" & vbcrlf & _
"<!--ProcessedbyGE-Path-->" & vbcrlf & _
"<Document>" & vbcrlf & _
"<name>New-Path</name>" & vbcrlf & _
"<open>1</open>" & vbcrlf & _
"<LookAt>" & vbcrlf & _
"<longitude>2.2</longitude>" & vbcrlf & _
"<latitude>1.11</latitude>" & vbcrlf & _
"<range>1000000</range>" & vbcrlf & _
"<tilt>0</tilt>" & vbcrlf & _
"<heading>0</heading>" & vbcrlf & _
"</LookAt>" & vbcrlf & _
"<Styleid=""sgrillo1"">" & vbcrlf & _
"<IconStyle>" & vbcrlf & _
"<Icon>" & vbcrlf & _
"<href>root://icons/palette-4.png</href>" & vbcrlf & _
"<y>128</y>" & vbcrlf & _
"<w>32</w>" & vbcrlf & _
"<h>32</h>" & vbcrlf & _
"</Icon>" & vbcrlf & _
"</IconStyle>" & vbcrlf & _
"</kml>"
Output.Show(a)
[此贴子已经被作者于2010-11-15 12:19:48编辑过]