Solucionado  :D
 

         Winsock1.Connect "IPDELSERVIDOR", PUERTO

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

Ejemplo
ElHacker.Net

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