Dim coordori,coordrep,coorddef
Dim Longitud, Latitud
Dim fso,kml
coordori=Inputbox("Dame las coordenadas de Geomedia","Editor kml","-3:54:23.456,34:23:42.163")
'este es un ejemplo del formato de coordenadas con el que trabaja Geomedia: coordori="-3:54:23.456,34:23:42.163"
Call desglosar(coordori)
Call Pasardecimal(coorddef)
Call editarkml(Longitud,Latitud)

dim EjecObj
set EjecObj = createobject("Wscript.shell")
EjecObj.Run("C:\Users\Gesu\Desktop\llevame.kml")

Function desglosar(valor)
    coordrep=Replace(valor,",",":",1,-1,1)
    coorddef = Split(coordrep,":",-1,1)
End Function

Function Pasardecimal(valor)
Dim segundos
    If valor(0)>0 then
        Longitud=CDbl(valor(0)+(valor(1)/60)+(valor(2)/3600))
    else
        Longitud=CDbl(valor(0)-(valor(1)/60)-(valor(2)/3600))
    end if
    If valor(3)>0 then
        Latitud=CDbl(valor(3)+(valor(4)/60)+(valor(5)/3600))
    else
        Latitud=CDbl(valor(3)-(valor(4)/60)-(valor(5)/3600))
    end if
End function

Function editarkml(lon,lat)
    set fso = CreateObject("Scripting.FileSystemObject")
    set kml=fso.CreateTextFile("C:\Users\Gesu\Desktop\llevame.kml",True)
    kml.writeline("<LookAt>")
    kml.writeline("    <longitude>"&Longitud&"</longitude>")
    kml.writeline("    <latitude>"&Latitud&"</latitude>")
    kml.writeline("    <altitude>0</altitude>")
    kml.writeline("    <range>500</range>")
    kml.writeline("    <tilt>0</tilt>")
    kml.writeline("    <heading>0</heading>")
    kml.writeline("</LookAt>")
    kml.close
end function