per il primo problema io creerei una matrice di controlli (hai il tuo textbox[nell'esempio, textSerial], lo copi e lo incolli sulla stessa form :lui ti chiederà se creare una matrice di controlli e te rispondigli di si!)poi prendi il tuo seriale, ottieni un array suddividendolo x spazi

codice:
Dim arSerial() as string

arSerial=split("10 14 56 77 89 23 45 1 12 34"," ")

'poi riempi la matrice

for i=0 to ubound(arSerial)
    textSerial(i+1)=arSerial(i)
next

per il secondo mi sa che devi aprire un nuovo 3d, magari specifica di che tipo di lista si tratta