Dim fso, file,cadena
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\Users\SRM\Desktop\LMT.kml", 1)
cadena = file.ReadAll
file.Close
msgbox cadena