Se quei dati che hai sono in una stringa chiamata Stringa fai

codice:
dim strDati as string
dim strParteInteressante as string
strParteInteressante="[parte interessante]"
strDati=mid(Stringa,instr(Stringa,strParteInteressante), len(strParteInteressante))
...cmq sia il titolo che la domanda sono un po' vaghi... spero di aver centrato l'obiettivo...
Ciao