Code "Laden"

RichTextBox1.Text = ""
        OpenFileDialog1.ShowDialog()
        Dim textline As String
        FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
        textline = LineInput(1)
        RichTextBox1.Text = RichTextBox1.Text + textline + Chr(13) + Chr(18)