PB的Replace和VB的Replace用法是大不同的，如果习惯了VB的，就用这个代码转换吧

Function vbReplace(ByVal Str As String ,mStr As String ,NewStr As String ) As  String  '
    Replace mStr With NewStr In Str
    Function=Str
End Function