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