Visual Basic - Como Reescribir en un archivo *.txt

Hola

tengan un contagioso saludo de parte de el Virux, mi pregunta radica en lo siguiente,
Yo estoy leyendo un archivo Txt del bloc de notas pero cuando llego a sierta linea deseo cambiar el valor por otro.

Nota :

Hasta el momento llevo esto

Do While Not EOF(1)
Line Input #1, ArchivoR
If Mid(ArchivoR, 1, 1) = 1 Then
Nit = Mid(ArchivoR, 12, 11)
Else
Cedula = Mid(ArchivoR, 2, 17)
& es aqui donde debo realizar la modificacion &
End If
Loop

Atentamente;

Kevin Harnolld Vechara Aguila
El Virux