Visual Basic - abrir fichero para lectura y escritura

Buenas, no se si se puede hacer esto.
Quiero abrir un fichero para leer y escribir en él.
Es decir quiero guardar unos datos en el fichero (unos correos importados de otro fichero), pero que no me repita ninguno de los correos.
Mi idea era abrir el segundo fichero (al que iran los correos sin repetir) como lectura (para ver si estan ya) y como escritura (para escribir cada correo si no esta).
No se si hay una manera de hacerlo, sino lo haria: abro fichero, miro si esta el correo, cierro fichero, sino esta lo abro como escritura y escribo en el, cierro...
Gracias de antemano

Mira este ejemplo con FSO, tienes que añadir referencia a Microsoft Scripting Runtime:

Option Explicit

Private Sub Command1_Click()
Dim fs As FileSystemObject
Dim ts As TextStream
Set fs = New FileSystemObject

'Escribir
Set ts = fs.OpenTextFile("C:\mytestfile.txt", ForWriting, True)
ts.WriteLine "linea 1"
ts.WriteLine "linea 2"
ts.Close

'Leer
If fs.FileExists("C:\mytestfile.txt") Then
Set ts = fs.OpenTextFile("C:\mytestfile.txt")
Do While Not ts.AtEndOfStream
MsgBox ts.ReadLine
Loop
ts.Close

End If
Set ts = Nothing
Set fs = Nothing
End Sub