Leggi una riga dal file e poi fai:
combo.additem(DatiLettiDalFile)

e per scrivere il contenuto della combo nel file:
For i = 0 To elencoFont.ListCount
Print #numerofile, elencoFont.Text
Next i
Ciao