Ayuda archivo de txt

[seques]

hey por favor necesito ayuda, ya logre escribir en el txt, pero es q me esta sobreescribiendo cada vez y eso no me sirve, necesito q me vaya llenado el archivo, q no me reemplace lo q habia....este es el code q tengo..Gracias

Private Sub escribir()

Dim newFile As IO.File
Dim strStreamW As IO.Stream
Dim swText As IO.StreamWriter

Dim TextFile As String = ("C:\correo\contact.txt")

''strStreamW = File.Create(TextFile)
strStreamW = File.OpenWrite(TextFile)
swText = New StreamWriter(strStreamW, System.Text.Encoding.UTF8)

swText.WriteLine("fecha: " + Me.fecha.Text)
swText.WriteLine("nombre: " + Me.txt_nombre.Text)
swText.WriteLine("empresa: " + Me.txt_empresa.Text)
swText.WriteLine("e-mail: " + Me.txt_email.Text)
swText.WriteLine("telefono: " + Me.txt_telef.Text)
swText.WriteLine("ciudad: " + Me.txt_ciudad.Text)
swText.WriteLine("asunto: " + Me.txt_asunto.Text)
swText.WriteLine("Comentario: " + Me.txt_coment.Text)
swText.WriteLine("******************************** ****************************")
swText.Close()

End Sub