RichTextBoxのテキストを

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim Bodytest1 As String = RichTextBox1.Text
Dim FN As String = "test\test1.txt"
Dim sw As New System.IO.StreamWriter(FN, False, System.Text.Encoding.GetEncoding("UTF-8"))
sw.Write(Bodytest1)
sw.Close()
End Sub

で保存するとこの画像のように

http://s3.gazo.cc/up/34549.jpg

保存した後にメモ帳で見ると改行コードがCrLfでなくなってるみたいだけど
上記プログラムをなにに書き換えれば改行がCrLfになってメモ帳でも改行してくれるのかしら