[VB] creo con TYPE e vorrei scorrere con FOR EACH

[napuleone]

creo dei campi con type e vorrei in seguito leggerli in sequenza (non importa in che ordine)
l'esempio è con tre campi ma nella realta sono molti di +
esempio

dim S as String
Type MyRec
  Lunga as string *10
  Media as string *5
  Corta as string *2
end Type
dim Recor as MyRec
Recor.Lunga="poltrone"
Record.Media="pippo"
Recor.Corta="ma"
'qui vorrei con FOR EACH o similare leggerle tutte ed ottenere il seguente risultato
S = Recor.Lunga & Recor.Media & Recor.Corta