Ahora VA completo, tienes que hacer lo siguiente en tu barra de herramientas debes de agregar el control RichTextBox
(Microsoft Rich TextBox Control 6.0) y el control CommonDialog (Microsoft Common Dialog Control 6.0) esto es para poder abrir un archivo de texto y despues visualizarlo en el RichTextBox.
'Lo declaras en la parte de arriba (Declarations)
Const RutaArchivoConexion = "C:\Archivo.Txt"
'se supone que tienes un textbox lo que tienes escrito lo pasa a un archivo de texto
Private Sub cmdEjecuta_Click()
Dim ArchivoTxt As Variant, F As Variant
Set ArchivoTxt = CreateObject("Scripting.FileSystemObject")
Set F = ArchivoTxt.CreateTextFile(RutaArchivoConexion, True)
F.Write Text1
F.Close
MsgBox "Listo", vbInformation
Text1 = ""
RichTextBox.Text = ""
Text1.SetFocus
End Sub
'Buscar los archivos txt
Private Sub cmdBuscar_Click()
CommonDialog1.Filter = "Documentos de texto(*.txt)|*.txt"
CommonDialog1.ShowOpen
'Carga el archivo
RichTextBox.LoadFile CommonDialog1.FileName, rtfText
End Sub
'Elimina el archivo que creastes
Private Sub cmdEliminar_Click()
Kill RutaArchivoConexion
Text1 = ""
RichTextBox.Text = ""
Text1.SetFocus
End Sub
'espero y te sirva saludos
