[COLOR="#000000"][COLOR="#0000BB"][/COLOR][COLOR="#007700"][/COLOR][/COLOR]
Private Sub Command1_Click() Open "uins.txt" For Output As #1 For i = Text1 To Text2 Print #1, i Next i Close #1 MsgBox "Yo la la" End Sub