Aqui expongo una manera de borrar registros en un fichero de texto.
Dim myFile As String = My.Application.Info.DirectoryPath & "\datostxt"
Dim originalregistros() As String = IO.File.ReadAllLines(myFile) 'leemos todas las lineas del fichero y lo guardamos en un array
Dim listaregistro As New List(Of String) 'creamos una lista de cadenas
Dim codigo_buscado As String = Me.textbox1.text 'registro que queremos borrar
dim i as integer
For i As Integer = 0 To originalRegistros.GetUpperBound(0) '
If originalRegistros(i).Contains(codigo_buscado) = False Then ' Si no es el registro buscado
listaregistro.Add(originalRegistros(i)) 'añadimos nuevos registros
End If
Next
IO.File.WriteAllLines(myFile, newRecords.ToArray) 'Guardamos los registros
