si scusa, mi sono sbagliato con SaveFileDialog.

Il percorso del file è "C:\DOCS\test.txt".

Questo è il codice che avevo provato
codice:
Dim AllText As String = "", LineOfText As String = ""
    OpenFileDialog1.Filter = ".txt|test.txt"

    OpenFileDialog1.FileName = "C:\DOCS\test.txt" 

    Try
        FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
        Do Until EOF(1)
            LineOfText = LineInput(1)
            AllText = AllText(LineOfText)
        Loop
        RichTextBox1.Text = AllText
    Catch
    Finally
        FileClose()
    End Try
Questo non funziona però!
Se non mi sbaglio queste modifiche aveva funzionato per il salva