Private Sub Command1_Click() Dim i As Long Open "c:\MiArchivo.txt" For Output As #1 For i = 10000 To 29999 Print #1, "probando " & i Next i Close #1 MsgBox "Fin" End Sub