That didn't take too long. here's the code

Code:
        Dim writeFile As String = "tmpfile.txt"
        sw = AppendText(writeFile)
        For Each person As Contact In contacts
            sw.WriteLine(firstName.Text & "," & lastName.Text & "," & PhoneNumber.Text & "," & Birthday.Value)
        Next
        sw.Flush()
        sw.Close()
I had to move the "AppendText" out of the loop because I started getting my favorite error again. Once I did that, everything's working great. I think I have it now. I think I have found all the gotcha's. I don't think I should put it in a try catch block, but not sure. What would you do?