Hola, no se si sera muy tarde para ayudarte, pero de todas formas mira este ejemplo, no se si sera lo que querias..
Dim MyVar As Integer
Private Sub Command1_Click()
With Combo1
For k = 0 To .ListCount
MyVar = k
Open "g:\sampless.txt" For Append As #1 ' Cambiar la unidad para que funke
Print #1, MyVar
Close #1
Next k
End With
End Sub
Private Sub Form_Load()
With Combo1
For i = 1 To 100
.AddItem i
Next i
End With
End Sub
en un formulario nuevo, pone un command, un combo, al iniciar el formulario, se cargaran numeros desde 0 a 100.
Al hacer click en el command, recorre el combo, los carga en una variable (MyVar) y los Guarda en un archivo de texto.
espero te sirva, saludos, cualquier cosa avisa.