Francamente, quello che mi frullava nella testa era di generalizzare il puntamento al file come si fa nel caso di... un recordset

codice:
public sub creafile (byval nomefile as string,byval tipofile as recordset)
e quindi nella open poter far riferimento ad esso/essa

codice:
Open nomefile For Random As #nfile Len = Len(tipofile )
nella lettura idem

codice:
Get #nfile, k, tipofile
e per la trascrizione dei dati idem

codice:
Print #nfile2, tipofile.nomecampo
Scrivendo, mi sto rendendo conto che non la soluzione prospettata da torn24 non va bene, altrimenti dovrei ripetere sempre l'istruzione di confronto e le relative istruzioni del file. Non vado a rispiarmiare istruzioni. Io volevo scrivere meno codice, per quello, cerco di crearmi il più possibile routine con variabili (sperando di non dire un'eresia)