For this exercise, we will be working with a text file that holds students' course averages. Each record is made up of 2 fields: JagNumber and Course Average. The current records in "Average.txt" file...

For this exercise, we will be working with a text file that holds students' course averages. Each record is made up of 2 fields: JagNumber and Course Average. The current records in "Average.txt" file are: J00768567,98.54 J00546344,72.35 J00123565,89.20Add Event Code:Dim jagNumber As String Dim average As Decimal GetInput(jagNumber, average) Dim record As String record = NewCSV(jagNumber, average) Dim sw As StreamWriter = IO.File.AppendText("Average.txt") sw.WriteLine(record) sw.Close()Sub Getlnput reads values in from textboxes into variables. The inputted value for jagNumber is J00998877. The inputted value for average is 92.50. Function NewCSV created a comma separated value record using the two inputted fields.Acs Walk through the code and show the values for the variables and location pointer as the code is executed. Go