#Region " Replace TextFile Line "
 
    ' [ Replace TextFile Line Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Replace_TextFile_Line("C:\File.txt", 1, "Hello world!")
    ' Replace_TextFile_Line("C:\File.txt", 3, True)
    ' If Replace_TextFile_Line("C:\File.txt", 5, "Elektro H@cker") Then ...
 
    Private Function Replace_TextFile_Line(ByVal Text_File As String, _
                                           ByVal Line_Number As Int64, _
                                           ByVal New_Text As Object) As Boolean
 
        Line_Number -= 1 : If Line_Number < 0 _
        Then Throw New Exception("Line Number can't be a negative value")
 
        Try
            Dim Lines_Array() As String = IO.File.ReadAllLines(Text_File)
            Lines_Array(Line_Number) = New_Text
            IO.File.WriteAllLines(Text_File, Lines_Array)
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
 
    End Function
 
#End Region