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
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