Instead of using #1 I think you should use FreeFile shouldn't you? As #1 may already be open.

VB Code:
  1. Dim intFreeFile As Integer
  2.     intFreeFile = FreeFile
  3.  
  4.     open fileName for OutPut as #FreeFile 'Open the file for output
  5.     Print #FreeFile, lblField1.Caption & ": " & txtField1.text

etc... That's my understanding anyway