Sobre manejo de archivos

[[EX3]]

Añade un vbNewLine al final de cada linea que escribas. Por cierto, la instruccion Seek te sobra ya que la posicion de lectura/escritura se posiciona en el siguiente registro al escrito/leido en el archivo automaticamente:

Código:

 Private Sub MGuardar_Click()
    Dim Said As String
    Dim I As Integer

    Open "C:\prueba.imp" For Output As #1
        For I = 1 To 10
            Said = Said & "Ney" & vbNewLine
            Print #1, Said
        
        Next I

    Close #1

End Sub

Salu2...