Trying to write and append a text file with OpenFile.

I am tring to capture a list of bad email addresses that cause errors in my program.  I want to be able to open the file and write and append the file if there is information in the file already.  I would like to add each email address to it's own line.  Below is the code I am working on.

Thanks.


---------------------------------------------------------------------------
                        Try
                            mailServer.Send(newMail)
                        Catch c As Exception
                            FileOpen(2, "c:\EmailFile.txt", OpenMode.Input, OpenAccess.Write)
                            Write(2, rsEmailList("fldEmailAddress").Value)
                            MessageBox.Show(c.InnerException.InnerException.ToString())
                        End Try
----------------------------------------------------------------------------