COMO EDITAR UMA LINHA EM UM ARQUIVO TXT

  Imports System.IO

Public Class Func
  [ô][ô][ô] <summary>
    [ô][ô][ô] Faz a alteração de um registo em um arquivo de texto, com incindência no nº da linha a substituir
    [ô][ô][ô] </summary>
    Public Sub AlterarIndex(ByVal Caminho_Txt As String, ByVal Text_Substituir As String, Optional ByVal lineUpdade As Integer = -1)
        If (String.IsNullOrEmpty(Caminho_Txt)) Then
            Return
        End If
        If contaLinhas(Caminho_Txt.ToString) = 0 Then Exit Sub
        Dim lines() As String = System.IO.File.ReadAllLines(Caminho_Txt)
        lines(lineUpdade) = Text_Substituir & [Ô]|[Ô]
        System.IO.File.WriteAllLines(Caminho_Txt, lines)
    End Sub
End Class