HOLA OCUPA UN RICHTEXTBOX + UN TEXTBOX MAS LOS BOTONES + 2 BOTONES(ABRIR , GUARDAR)
Private Sub Abrir_Click()
RicRUT.LoadFile ("C:\tuarchivo.txt"), rtfText
'en la funcion de arriba habres el archivo
texRUT.Text = RicRUT.Text
'aqui pasas el contenido a un text del archivo
End
Private Sub Guardar_Click()
RicRUT.Text =texRUT.Text
texrut.sabetofile("c:\tuarchivo.txt"), rtftext
End
bueno si quieres mas informacion me puedes avisar y si se te ayudo
