Private Sub Command1_Click()
Text1 = "Ejemplo :D"
End Sub

Ejemplo
ElHacker.Net

Bue men disculpa xD!! 
No me retes jeje..

no entendi muy bien sobre las rutas me re perdi xDD!!

bue lo que ise fue crear otro textbox y un commandbutton el codigo me quedo asi

Private Sub Reemplazar_Texto(ByVal El_Archivo As String, _
                            ByVal La_cadena As String, _
                            ByVal Nueva_Cadena As String)
 
On Error GoTo errSub
Dim F As Integer
Dim Contenido As String
 
 
    F = FreeFile
 
    Open El_Archivo For Input As F
 
    Contenido = Input$(LOF(F), #F)
 
    Close #F
 
    Contenido = Replace(Contenido, La_cadena, Nueva_Cadena)
 
 
    F = FreeFile
 
    Open El_Archivo For Output As F
 
    Print #F, Contenido
 
 
    Close #F
 
    MsgBox " Listo!!! ", vbInformation
Exit Sub
 
'Error
 
errSub:
MsgBox Err.Description, vbCritical
Close
End Sub
 
 
Private Sub Command1_Click()
If (Text1 = "" Or Text2 = "" Or Text3 = "") Then
   MsgBox " datos incompletos ", vbCritical
   Exit Sub
End If
 
Call Reemplazar_Texto(Text1, Text2, Text3)
 
End Sub
Private Sub Command2_Click()
If (Text4 = "" Or Text5 = "" Or Text6 = "") Then
   MsgBox " datos incompletos ", vbCritical
   Exit Sub
End If
 
Call Reemplazar_Texto(Text4, Text5, Text6)
End Sub

Pero igual men gracias por responder   

Bue este problemita me ta rompiendo vastantes las %"·&%

este es el codigo

Private Sub Reemplazar_Texto(ByVal El_Archivo As String, _
                            ByVal La_cadena As String, _
                            ByVal Nueva_Cadena As String)
 
On Error GoTo errSub
Dim F As Integer
Dim Contenido As String
 
 
    F = FreeFile
 
    Open El_Archivo For Input As F
 
    Contenido = Input$(LOF(F), #F)
 
    Close #F
 
    Contenido = Replace(Contenido, La_cadena, Nueva_Cadena)
 
 
    F = FreeFile
 
    Open El_Archivo For Output As F
 
    Print #F, Contenido
 
 
    Close #F
 
    MsgBox " Listo!!! ", vbInformation
Exit Sub
 
'Error
 
errSub:
MsgBox Err.Description, vbCritical
Close
End Sub
 
 
Private Sub Command1_Click()
If (Text1 = "" Or Text2 = "" Or Text3 = "") Then
   MsgBox " datos incompletos ", vbCritical
   Exit Sub
End If
 
Call Reemplazar_Texto(Text1, Text2, Text3)
 
End Sub
 

Private Sub Command1_Click()
If (Text1 = "" Or Text2 = "" Or Text3 = "") Then
   MsgBox " datos incompletos ", vbCritical
   Exit Sub
End If
 
Call Reemplazar_Texto(Text1, Text2, Text3)
 
End Sub

Option Explicit
 
'***************************************************************************
'*  Name         : Buscar y Reemplazar En Word desde vb
'*  Controles    : Un CommandButton y tres textbox _
                  (txt_Buscar, txt_Buscar y txt_path )
'***************************************************************************
 
Function Buscar_Reemplazar_En_Word(Cadena_Origen As String, _
                                   Cadena_reemplazo As String, _
                                   Path_Word As String) As Boolean
 
    On Error GoTo Err_Buscar
 
    Dim Obj_Word As Object
 
    'Crea una nueva referencia para poder acceder al documento
    Set Obj_Word = CreateObject("Word.Application")
 
    ' aplicación de word no visible
    Obj_Word.Visible = False
 
    'Abre el archivo especificado mediante el método Open y algunas opciones
    Obj_Word.Documents.Open FileName:=Path_Word
 
 
    ' Coloca la selección al comienzo del documento
    Obj_Word.ActiveDocument.GoTo What:=wdGoToPage, _
                                         Which:=wdGoToNext, _
                                         Name:="1"
 
 
 
    Obj_Word.Selection.Find.ClearFormatting
    Obj_Word.Selection.Find.Replacement.ClearFormatting
 
    ' Propiedades de la búsqueda y reemplazo
    With Obj_Word.Selection.Find
        .Text = Cadena_Origen
        .Replacement.Text = Cadena_reemplazo
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
 
    ' Ejecuta la búsqueda y reemplazo
    Obj_Word.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceAll
 
   'Cierra el documento abierto ( TRue es para guardar los cambios )
    Obj_Word.ActiveDocument.Close True
 
    'Destruye las variables de objeto y cierra la aplicación de word
    Obj_Word.Quit False
    Set Obj_Word = Nothing
 
    'Ok
    Buscar_Reemplazar_En_Word = True
 
    Exit Function
 
'Error
Err_Buscar:
    MsgBox Err.Description, vbCritical
 
    On Error Resume Next
    'cierra la aplicación de word
    Obj_Word.Quit False
    'Elimina la referencia de la memoria
    Set Obj_Word = Nothing
End Function
 
Private Sub Command1_Click()
 
    Dim ret As Boolean
 
    ' Comienza la búsqueda y reemplazo en el documento
    ret = Buscar_Reemplazar_En_Word(txt_Buscar, _
                                    txt_Buscar, _
                                    txt_Path)
 
    If ret Then
        MsgBox " Listo ", vbInformation
    End If
 
 
End Sub
 
Private Sub Form_Load()
    Command1.Caption = " Buscar y reemplazar "
    txt_Buscar = " Acá colocar la palabra a buscar "
    txt_reemplazar = " Acá colocar la palabra de reemplazo"
    txt_Path = " Colocar el path del documento "
End Sub

    Obj_Word.ActiveDocument.GoTo What:=wdGoToPage, _