[Ayuda] Filtrar texto

[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