Problem:Using the code of Figure $3$ Code in other toconvert the data $.$txt file in to Excel data File in toTEXT data files. Click the image to downloaddata.dta$-$NctepadPhil:HelDulcehilip Gent Male rancsUnited es$/2$e$1$seretda Hapood Fenale nited StatescitainEtta Hurn enieVincenz. e lanArcella Bouska FemaleSherron AscencioKina HareltoninardOption ExplicitLastFemaleoceta cueren Feale FrareBelinda Partain Fenale tnited StatesHolly udy ealeLibble Dalby Female France $42$End SubGendeFenale Uni ted StatesGreat Britain $39$Fenale Great BritainFenale Great Britain $313116/08/201615/1$e$/2873579$Dim i As IntegerDim char As StringCountry AgeteNote that the indexing for the returnArray array is et up$\text{'}$ for $1-$based indexing.Sub ParseLine$($dataLine As String, delimiter As String,Current Text $=$ umDate Id$15/20/20?48/85/2815$Nvalues As Integer, returnArray$()$ As String$)$char $=$ Mid$($datalLine$,$ i$,1)$ReDim returnArray$($counter$)21/$e$5/2815$counter$=$ counter $+16/08/201621/85/21$s$/10/017256421/85/2$e$1$: sA$89$Next i$16/08/2816$For i $=1$ To Len$($dataLine$)$nValues $=$ counterElse$1252$'This sub parses a line of data from the text file into individual pieces of data.It returns an array of the pieces of data and number of pieces $($in nValues$).$Dim counter As Integer counts the pieces of data in the lineDim currrentText As String $\text{'}$ text since last commaGo through the string a character ata time.Counter counts the number of pieces of data in the line.counter $=1$currenttext & Mid$($dataLine$,$ i$,1)$End IfcurrentText is any piece of data in the line, where the piecesseparated by commas.Get the character in position i$\mathrm{.}1582354965482596597$Check if the character is a comma or the last character in the string.If char $=$ delimiter ThenElself i $=$ Len$($dataLine$)$ ThenreturnArray$($counter$)=$ currenttextGet ready for the next piece of data.CurrentText $=$ m'Capture this last piece of data and return the number of pieces.currentText $=$ currentText & Mid$($dataLine$,$ i$,1)$ReDim Preserve returnArray$($counter$)$returnArray$($counter$)=$ currenttextare'Add this character to the currenttext string.currentText $=$Shavon Benito Fenale France