Roleplay 2 Main Map Converter

 On Error Resume Next
        'Textbox3
        'Deaths              (0)
        'Kills               (1)
        'Killed              (22)
        'Suicides            (23)
        'KtoD                (2)
        'MostMoneyMade       (4)
        'MostMoneyLost       (3)
        'IdleTime            (21)
        TextBox3.Clear()
        Dim fName = "D:\Westwood\RenegadeFDS\Server\data\Roleplay2\Rp2PlayerRecords.txt"
        Dim fileContents As String
        fileContents = My.Computer.FileSystem.ReadAllText(fName)
        TextBox4.Text = fileContents
        For i As Integer = 0 To TextBox4.Lines.GetUpperBound(0)
            Dim textline = TextBox4.Lines(i)
            Dim players = (i)

            If textline = Nothing Then
            Else
                Dim ts As TimeSpan = Now.AddSeconds((wordquest(" ", TextBox4.Lines(players + 1), 5))).Subtract(Now)
                Dim time = ts.Hours & ":" & ts.Minutes & ":" & ts.Seconds
                Dim name = textline
                Dim deaths As Integer = (wordquest(" ", TextBox4.Lines(players + 1), 0))
                Dim defences_destroyed = Nothing
                Dim Hailfire_turrents_killed As Integer = (wordquest(" ", TextBox4.Lines(players + 1), 24))
                Dim Ceiling_Guns_Killed As Integer = (wordquest(" ", TextBox4.Lines(players + 1), 25))
                Dim DestroyedSams As Integer = (wordquest(" ", TextBox4.Lines(players + 1), 26))
                Dim mostmoney = (wordquest(" ", TextBox4.Lines(players + 1), 4)).Replace(".00", Nothing)
                Dim mostmoneylost = (wordquest(" ", TextBox4.Lines(players + 1), 3)).Replace(".00", Nothing)
                Dim kills = (wordquest(" ", TextBox4.Lines(players + 1), 1))
                Dim KtoD = (wordquest(" ", TextBox4.Lines(players + 1), 2))
                Dim sucides As Integer = (wordquest(" ", TextBox4.Lines(players + 1), 23))
                Dim playtime = time
                kills = CDbl(kills)
                deaths = CDbl(deaths)
                sucides = CDbl(sucides)
                defences_destroyed = Hailfire_turrents_killed + Ceiling_Guns_Killed + DestroyedSams
                deaths = (wordquest(" ", TextBox4.Lines(players + 1), 22)) + deaths + sucides
                Dim rofl = _
                          playtime & _
                          "," & kills & _
                          "," & deaths & _
                          "," & sucides & _
                          "," & KtoD & _
                          "," & defences_destroyed & _
                          "," & mostmoney & _
                          "," & mostmoneylost
                TextBox3.Text += name & "," & rofl & vbNewLine
                i = i + 1
            End If
        Next i
        Dim lol = 0
        My.Computer.FileSystem.WriteAllText("C:\Program Files (x86)\Apache Software Foundation\Apache2.2\htdocs\rofl\ConvertedStats.txt", TextBox3.Text, False)
        On Error Resume Next