Replace Paragraph char with <p> in Word document

Setup
OS: NT
VB: 6.0
References in VB Project:
1. MS Word 9.0 Object libray
2. OLE Automation
3. VB Runtime objects and procedures
4. VB for applications
5. VB objects and procedures

Problem: I have written a function to replace paragraph char (^p) in word document to <p>. In my system it works fine but in other VB environment it does not work. Functionality is replace and save word doc in text format. I have attached replace method code and portion of the method calling replace method.

Please help me. Thanks in advance

*************

Set objDoc = Application.Documents.Open(FileArray(I), AddToRecentFiles:=False)

replace
   
sNewName = NameWithoutExtension(objDoc.Name)
           
objDoc.SaveAs FileName:=TargetPath & sNewName, FileFormat:=wdFormatTextLineBreaks
        objDoc.Close wdDoNotSaveChanges
        Set objDoc = Nothing

****************

Sub replace()

On Error GoTo err_handle2

    Word.Selection.Find.ClearFormatting
    Word.Selection.Find.Replacement.ClearFormatting
    With Word.Selection.Find
        .Text = "^p"
        .Replacement.Text = "<p></p>^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Word.Selection.Find.Execute replace:=wdReplaceAll
    Exit Sub
err_handle2:
End Sub