archivo secuencial de texto a archivo for random aleatorio

[corlo]

Hola soy Corlo

hola quisiera pasar el codigo archivo secuencial de texto a archivo for random aleatorio
el codigo que tengo es este

Código [Seleccionar] Expandir



Dim i As Integer
mes = Text8.Text
fecha = Text1.Text
nombre = Text2.Text
apellido = Text3.Text
producto = Text4.Text
cantidad = Text5.Text
precio = Text6.Text
total = Val(Text5.Text) * Val(Text6.Text)
Text7.Text = Val(Text5.Text) * Val(Text6.Text)
archivo = App.Path & "\ventas.txt"
Open archivo For Append As #1
Write #1, mes, fecha, nombre, apellido, producto, cantidad, precio, total
For i = 0 To List1.ListCount - 1

        Print #1, List1.List(i)
        Next i
Close #1




Gracias

[XresH]

Hola, de verdad lei varias veces pero no comprendo que es lo queres hacer...

Si especificas un poco mas quiza podria ayudarte..

Saludos.