mid(stringa,1,4) & mid(stringa,5,2) &
mid(stringa,len(stringa) -4) 'se non sai quanto è lunga altrimenti come sopra......

ma ci sono diversi modi per fare la stessa cosa.
p.s.
di che loop parli ?