Could someone explain to me what's wrong with this piece of code which should create a text file called user.txt and put whatever has been typed in a text box into the file. But when the program is run I get the compile error "Varible not defined", that is wrong with the code?

Dim dateiname as string, dateinr as Integer
DirPath = (App.Path & "\logon\")
dateiname = DirPath & "user.txt"
dateinr = FreeFile
Open dateiname for Output as dateinr
print #dateinr, txtUser.Text
Close dateinr



Jonathon.