Solución 18.5 Crear un fichero GPX

Sub CreaGPX()  
    Dim strRutaRecursos As String  
    Dim fso As Scripting.FileSystemObject  
    Dim strFicheroGPX As String  
    Dim flujoTexto As Scripting.TextStream  
    Dim intLinea As Integer  
    Dim intNumLineas As Integer  
    Dim f As Worksheet  
    Call Ruta  
    strRutaRecursos = strRuta & "\Documentos XML\"  
    strFicheroGPX = Application.InputBox("Introduzca el nombre del fichero GPX _  
    que va a crear" & vbCrLf & "SIN la extensión .gpx", 2)  
    Set f = Worksheets("Datos GPX")  
    Set fso = New FileSystemObject  
    Set flujoTexto = fso.OpenTextFile(Filename:= strRutaRecursos & _  
    strFicheroGPX & ".gpx", IOMode:=ForWriting, Create:=True)  
    With flujoTexto  
        intNumLineas = Worksheets("Datos GPX").Range("A1").CurrentRegion.Rows.Count
        .WriteLine "<?xml version=""1.0"" ...