Dim sArchivo As String sArchivo = App.Path & "\Tiempos.txt" Open sArchivo For Output As #1 Print #1, Text1.Text Close #1