VB-ül nem tudok, így csak tippelek... talán a aItems(0,i)=getText(''title'', objHdl) sort kellene megpiszkálni valahogy úgy hogy aItems(0,i)=Left(getText(''title'', objHdl), Len(getText(''title'', objHdl))-14 )... de mivel sem a nyelvet nem beszélem, sem van róla gőzöm hogy milyen adatstruktúrát használ a script, itt a vak vezetése világtalan által minősített esete forog fenn...