Добавить восклицательные знаки

  'Получить текст, в котором в конце каждой строки из заданного файла добавлен восклицательный знак.
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("L:\3 семестр\ЯиМП\практика14\первый файл.txt")
            MyReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
            MyReader.Delimiters = New String() {","}
            Dim currentRow As String
            While Not MyReader.EndOfData
                Try
                    currentRow = MyReader.ReadLine()
                    My.Computer.FileSystem.WriteAllText(
                       "L:\3 семестр\ЯиМП\практика14\второй файл.txt", currentRow, True)
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("Line " & ex.Message & " is invalid.  Skipping")
                End Try
            End While
        End Using
    End Sub