VB6 - Open and write file

    Dim sFileText as String
    Dim iFileNo as Integer
      iFileNo = FreeFile
          'open the file for writing
      Open "C:\Test.txt" For Output As #iFileNo
    'please note, if this file already exists it will be overwritten!
          'write some example text to the file
      Print #iFileNo, "first line of text"
      Print #iFileNo, "   second line of text"
      Print #iFileNo, ""  'blank line
      Print #iFileNo, "some more text!"
          'close the file (if you dont do this, you wont be able to open it again!)
      Close #iFileNo