Update Record Code: Dim line, data(1) As String Dim updateJag As String = txtJagNumber. Text Dim jagNumber As String Dim average As Decimal GetInput(jagNumber, average) Dim record As String NewCSV(jagNumber, average) Dim sr As IO.StreamReader = I0.File.0penText("Average.txt") Dim sw As IO.StreamWriter = 10.File.CreateText("Temp.txt") Do Until sr.EndofStream line = sr.ReadLine data = line.Split(","c) If data(0) = updateJag Then sw.WriteLine(record) Else sw.Writeline(line) End If Loop sr.Close() sw.Close() File. Delete("Average.txt") File.Move("Temp.txt", "Average.txt") Sub GetInput reads values in from textboxes into variables. The inputted value for jagNumber is J00123565. The inputted value for average is 90.20. Function NewCSV created a comma separated value record using the two inputted fields. Walk through the code and show the values for the variables and location pointer as the code is executed. Average.txt Temp.txt J00768567,98.54 J00546344,72.35 J00123565,89.20 J00998877,92.50 updateJag average record line data