Редактирование текстового файла

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim source As List(Of String) = IO.File.ReadAllLines("path\name.txt", System.Text.Encoding.Default).ToList
        Dim index As Integer = InStr(source(0).ToLower, "дата")
        If index > 0 Then
            source(0) = source(0).Substring(index - 1) 'убираем из первой строки текст до "дата"
        End If
        For i = source.Count - 1 To 0 Step -1
            If source(i).ToLower.StartsWith("фио") Then
                source.RemoveAt(i) 'убираем всю строку, если она начинается с фио
                Continue For
            End If
            source(i) = Replace(source(i), Chr(34), "") 'убираем все "
            source(i) = RemoveSemicolon(source(i)) 'убираем все ; с конца
            Dim MarkInd As Integer = InStr(source(i).ToLower, "марка")
            If MarkInd > 0 Then
                If source(i).Substring(MarkInd + 4, 1) <> ";" Then
                    source(i) = source(i).Insert(MarkInd + 4, ";") 'ищем слово Марка и ставим после него ; если не стоит
                End If
            End If
        Next
        IO.File.WriteAllLines("path\newname.txt", source.ToArray, System.Text.Encoding.Default)
    End Sub
    Function RemoveSemicolon(ByVal str As String) As String 'функция убираем все ; с конца строки, пока не встретит любой другой знак
        Dim Count As Integer = 0
        For i = str.Length - 1 To 0 Step -1
            If str(i) = ";" Then
                Count += 1
            Else
                Exit For
            End If
        Next
        Return str.Substring(0, str.Length - Count)
    End Function

 If source(i).ToLower.StartsWith("фио") Or source(i).Contains(";") = False Then
                source.RemoveAt(i) 'убираем всю строку, если она начинается с фио
                Continue For
            End If

source(i) = String.Join(" ", source(i).Split(New Char() {" "}, StringSplitOptions.RemoveEmptyEntries))

 Function CheckSemicolon(ByVal str As String) As String
        Dim Count As Integer = str.Count(Function(c) c = ";")
        If Count < 7 Then
            For i = 1 To 7 - Count
                str &= ";"
            Next
        End If
        Return str
    End Function

 Function ChangeNumbers(ByVal str As String) As String
        Dim Result As String = ""
        Dim reg As New Regex("\(?\d{3}\)?-? *\d{3}-? *-?\d{2} *-?\d{2}")
        Dim Matches As MatchCollection = reg.Matches(str)
        If Matches.Count = 2 Then
            Dim phone1 As String = str.Substring(Matches(0).Index, 15)
            Dim phone2 As String = str.Substring(Matches(1).Index, 15)
            Result = str.Substring(0, Matches(0).Index) & phone2 & " ; 8 " & phone1 & str.Substring(Matches(1).Index + 15)
        Else
            Result = str
        End If
        Return Result
    End Function

Result = str.Substring(0, Matches(0).Index) & phone2 & str.Substring(Matches(0).Index + 15, Matches(1).Index - Matches(0).Index - 15) & phone1 & str.Substring(Matches(1).Index + 15)