Changing a data entity in .txt file

[seditives]

hi, So I have a list box that gets its entities from a .txt file which are listed one by one (each entity being on a new line of the .txt file)

How would I go about changing one of the entities?

Here is the code I have at the moment which seems to just delete everything in the file and then enters only the information that has been changed.

      Open (File0.Path & "\" & File0.FileName) For Input As #1
          i = 0
          Do While Not EOF(1)
            Input #1, x(i)
            i = i + 1
          Loop
      Close #1
      
    Open (File0.Path & "\" & File0.FileName) For Output As #1
        i = 0
        If lst0.ListIndex = 0 Then
          Write #1, Hair0.Text
          i = i + 1
        End If
        
        Do
          Write #1, x(i)
          i = i + 1
          If lst0.ListIndex = i Then
            Write #1, Hair0.Text
            i = i + 1
          End If
        Loop Until i = lst0.ListCount
    Close #1

[4x2y]

The If statement before the Do...Loop has no meaning, try the following code

Open (File0.Path & "\" & File0.FileName) For Input As #1
    i = 0
    Do While Not EOF(1)
        Input #1, x(i)
        i = i + 1
    Loop
    Close #1
    
    Open (File0.Path & "\" & File0.FileName) For Output As #1
    i = 0
    
    Do
        If lst0.ListIndex = i Then
            Write #1, Hair0.Text
        Else
            Write #1, x(i)
        End If
        i = i + 1
    Loop Until i = lst0.ListCount
    Close #1