a ver señor matrix que nadie nace sabiendo si supiera no pediria ayuda
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Sub Command2_Click()
Replace (textbox1.Text )
End Sub

ayudame un poco mas 
Private Sub Command1_Click()
On Error GoTo Err_Sub
Dim n_File As Integer
Dim Contenido As String
'Número de archivo libre
n_File = FreeFile
'Abre el archivo indicado
Open txt_Path For Input As n_File
'Lee todo los datos del archivo y lo almacena en la variable
Contenido = Input$(LOF(n_File), #n_File)
'Cierra el archivo abierto
Close n_File
'Carga el contenido de la variable en el TextBox
txt_Contenido = Contenido
Exit Sub
Err_Sub:
MsgBox Err.Description, vbCritical
End Sub
Open "Archivo.txt" For Append As #1 ' Abre archivo de salida para añadir
texto1 = " Artist:...: " & text1.text
texto2 = " Title:.....: " & text2.text
Print #1, texto1 'escribe el contenido del control textbox1
Print #1, texto2 'escribe el contenido del control textbox2
Close #1
bla bla ... bueno mil gracias de nuevo
para cargar un archivo con extensión .nfo dentro del cuadro blanco como hago eso
es que no tengo ni xorra idea
help me plz
y espero terminar este pequeño tool 



