Beh ... mi sembrava semplice ...

Quando salvi devi scrivere

codice:
Print #2, Combo1.ListIndex
e quando leggi

codice:
Line Input #H, L
Combo1.ListIndex = CLng(ix)
Considera inoltre, che il ciclo in lettura non serve.