Open App.Path & "\Archivo.txt" For Output As #1
Text1.Text = App.Path & "\Archivo.txt"Open Text1.Text For Output As #1... Dim miVariableCadena As StringmiVariableCadena = App.Path & "\Archivo.txt"Open miVariableCadena For Output As #1...