Problem with find function on range object

[Metalpalo]

Hello

I'm creating Word document via VB6 application and I have got any problem with 'find' function.

Here is my code:

With xTable.Range.Find
    .ClearFormatting
    .Text = "$$$CR$$$" 'problem line
    .Replacement.Text = Chr(11)
    .Execute Replace:=wdReplaceAll
End With
With xTable.Range.Find
    .ClearFormatting
    .Text = "$$$TAB$$$" 'problem line
    .Replacement.Text = vbTab
    .Execute Replace:=wdReplaceAll
End With

I note that it works fine on many PCs with following configurations:
XP(eng)+ Office XP(eng),
XP(eng)+ Office 2007(eng),
Windows 7(eng)+ Office 2007(eng),
XP(ger)+ Office 97(ger),
Windows 7(ger)+ Office 2007(ger)

But problem is reported on one pc(i cant simulate it on this computer because of inaccessible on network): XP(ger)+Office 2007(ger)

In case of uncommented problematic lines above it doesnt crash but it isnt acceptable for me.

Can somebody tell me where can be problem and how to resolve it.
Does somebody some general solution how to use 'find' function?

thanks a lot