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...