AppendAllText не сохраняет новые строки из textbox1.text в файл .txt

Question

Я не могу понять, почему File.AppendAllText не сохраняет Новые строки в txt.Например, Textbox1.text содержит:

Textbox1.text &= "hello, it's me, first lane" & Environment.NewLine
Textbox1.text &= "hello, it's me, second lane" & Environment.NewLine

И код:

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
    Dim saveFile1 As New SaveFileDialog()

    saveFile1.DefaultExt = "*.txt"
    saveFile1.Filter = "Text Files|*.txt"

    ' Determine if the user selected a file name from the saveFileDialog.
    If (saveFile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
        And (saveFile1.FileName.Length) > 0 Then

        ' Save the contents of the TextBox into the file.

        File.AppendAllText(saveFile1.FileName,
        TextBox1.Text)
    End If
End Sub

И вывод текстового поля:

привет, это я, первый lanehello, это я, вторая полоса

Я открываю с блокнотом по умолчанию.Если я открою файл с WordPad или Windows Office, новые строки существуют.Так как сделать так, чтобы блокнот видел новые строки