I cannot get the filename right, with the code that I am using. Can you have a look at my project's source code?

Problem: I get the file to be made, but there isn't any filename, only a file extension and nothing more.

Source Code:
Public Sub Command1_Click()
Unload Form1
Unload Form2
Unload Form3
Unload Form4
Unload Form5
Unload Form6

Form1.Logout_Network.Enabled = True
Form1.Login_Network.Enabled = False

Open App.Path & "\" & Text1.Text & ".txt" For Output As intFile
Print #intFile, Text2.Text
Close intFile

Form1.Show
Exit Sub

OnError:
On Error GoTo 0
0 Exit Sub

Exit Sub
End Sub