metti
i= 0 prima del ciclo Do Until act.AtEndOfStream

e alla prima riga metti

if i>0 then

prima di loop metti

end if
i= i +1