Per caricare un file sulla RichTextBox basta usare
r1.FileName = "fileDaAprire"
Per salvare, se è un file txt devi mettere la flag "rtfCFText"
r1.SaveFile "NuovoNome" , rtfCFText
Altrimenti salvi un file "rtf" con tutti i suoi relativi tag.
Ciao