Aqui esta el codigo para abrir haciendo uso del CommonDialog...
Código:
Private Sub Command1_Click()
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.ShowOpen
RichTextBox1.LoadFile CommonDialog1.FileName
End Sub
... sin el commonDialog:
Código:
Private Sub Command1_Click()
RichTextBox1.LoadFile ruta_del_archivo
End Sub