[Ayuda] Filtrar texto

[agus0]

Hola que tal comunidad...

Bueno les comento estoy haciendo un programa que descargue musica de goear...
con una herramiente INET obtengo este codigo fuente...

Código:

<?xml version="1.0" encoding="UTF-8"?>
<songs>
   <song path="http://www.goear.com/files/sst4/3b42284a326aa0c94983db513e9ed4e8.mp3" bild="img/s.jpg" artist="hasta el final" title="18 kilates"/>
</songs>

Lo que yo necesito es "limpiarlo" para solo tener el link (http://www.goear.com/files/sst4/3b42...513e9ed4e8.mp3) el problema es que tanto el largo del link como el resto del texto cambia segun el tema que se quiere descargar

esto es constate:

Código:

<?xml version="1.0" encoding="UTF-8"?>
<songs>
   <song path="

pero lo que sige despues varia segun la cancion

es decir esto

Código:

" bild="img/s.jpg" artist="hasta el final" title="18 kilates"/>
</songs>

me explico?

Como puedo hacer?

Gracias!

[pkj]

ta chupao

Código :

Private Function SacaHTTP(ByVal TextoXML As String) As String
  Dim Pos As Long
  Pos = InStr(1, TextoXML, "song path=")
  SacaHTTP = Mid$(TextoXML, Pos + 11, InStr(Pos + 11, TextoXML, Chr$(34)) - Pos - 11)
End Function