Изменить формат даты

 Sub Запись(ByVal ПутьФ As String, ByVal str1 As String)
        If (My.Computer.FileSystem.FileExists(ПутьФ) = True) Then
            If (MsgBox("Файл существует. Переписать?", _
                MsgBoxStyle.YesNo Or MsgBoxStyle.Question, _
                "Overwrite") <> MsgBoxResult.Yes) Then Exit Sub
        End If
        ' Сохраняем данные.
        Try
            My.Computer.FileSystem.WriteAllText(ПутьФ, str1, False)
        Catch ex As Exception
            MsgBox("Файл не может быть записан на диск " & _
                   "из-за ошибки:" & vbCrLf & vbCrLf & ex.Message)
        End Try
    End Sub
    'Процедура чтения данных из файла целиком в одну строку
    Sub Чтение(ByRef Str3 As String, ByVal filename As String)
        ' Открываем существующий файл и загружаем его в одну строку
        Try
            Str3 = My.Computer.FileSystem.ReadAllText(filename)
        Catch ex As Exception
            MsgBox("Could not open the file due to the " & _
                   " following error:" & vbCrLf & vbCrLf & ex.Message)
        End Try
    End Sub

Public Class Form1
 
    Dim Str1 As String 'строка с исходным первым файлом
    Dim Rez As String 'строка с измененным первым файлом
 
 
    Function vvod(ByVal T As TextBox) As String
        Return T.Text
    End Function
    Sub VvodS(ByRef chr As Char)
        chr = TextBox3.Text
    End Sub
 
    Sub vivod(ByVal z As String, ByRef t As TextBox)
        If z.Length <> 0 Then
            t.Text = z
        Else
            t.Text = "Все удалено"
        End If
    End Sub
 
    Sub vivodS(ByVal Z As Integer, ByVal T As TextBox)
        T.Text = Format(Z, "0")
    End Sub
 
 
 
    Sub Запись(ByVal ПутьФ As String, ByVal str1 As String)
        If (My.Computer.FileSystem.FileExists(ПутьФ) = True) Then
            If (MsgBox("Файл существует. Переписать?", _
                MsgBoxStyle.YesNo Or MsgBoxStyle.Question, _
                "Overwrite") <> MsgBoxResult.Yes) Then Exit Sub
        End If
        ' Сохраняем данные.
        Try
            My.Computer.FileSystem.WriteAllText(ПутьФ, str1, False)
        Catch ex As Exception
            MsgBox("Файл не может быть записан на диск " & _
                   "из-за ошибки:" & vbCrLf & vbCrLf & ex.Message)
        End Try
    End Sub
    'Процедура чтения данных из файла целиком в одну строку
    Sub Чтение(ByRef Str3 As String, ByVal filename As String)
        ' Открываем существующий файл и загружаем его в одну строку
        Try
            Str3 = My.Computer.FileSystem.ReadAllText(filename)
        Catch ex As Exception
            MsgBox("Could not open the file due to the " & _
                   " following error:" & vbCrLf & vbCrLf & ex.Message)
        End Try
    End Sub
 
    Sub InsertChar(ByRef str1 As String, ByVal charpos As Integer, ByVal L As Integer)
        str1 = str1.Substring(0, charpos + 1) + str1.Substring(charpos, L - charpos)
    End Sub
 
 
    Sub Обработка(ByRef a As String)
        Dim c As Char
        VvodS(c)
        Dim idx, Lng As Integer
        Lng = a.Length : idx = 0
        While Lng <> idx
            If a.Substring(idx, 1) = c Then
                InsertChar(a, idx, Lng)
                Lng = Lng + 1
                idx = idx + 2
            Else
                idx = idx + 1
            End If
        End While
    End Sub
 
    'Процедура  решения задачи 
    Sub Решение(ByVal s1 As String, ByRef s2 As String)
        Dim max As Integer
        Dim a, naibs As String
        Dim Stroki() As String 'массив строк первого файла
        Stroki = Split(s1, vbNewLine) 'Разбиваем строку с первым файлом
        ' на массив строк по признаку конца строки
        s2 = "" ' новая строка для нового файла целиком
        naibs = ""
        max = 0
        For i As Integer = 0 To Stroki.Length - 1
            a = Stroki(i) ' одна строка первого файла
            Обработка(a) ' добавление символов
            If a.Length > max Then ' поиск строки с максимальным количеством символов
                max = a.Length
                naibs = a
            End If
            'собираем измененные строки первого файла в одну строку s2
            s2 = s2 + a + vbNewLine
        Next
        vivod(naibs, TextBox5)
        vivodS(max, TextBox6)
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e _
                              As System.EventArgs) Handles Button3.Click, Button2.Click
        Решение(Str1, Rez)
        vivod(Rez, TextBox4)
    End Sub
 
 
    'Процедура чтения  первого файла
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e _
                          As System.EventArgs) Handles Button1.Click
        Dim ПутьФ1 As String = ""
        ПутьФ1 = vvod(TextBox1)
        Чтение(Str1, ПутьФ1)
        vivod(Str1, TextBox2)
    End Sub
 
 
    'Процедура записи строки с измененным первым файлом  в тот же файл
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e _
                              As System.EventArgs) Handles Button3.Click
        Dim ПутьФ As String = ""
        ПутьФ = vvod(TextBox1)
        Запись(ПутьФ, Rez)
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub
End Class