run time error 13 type mismatch when running VB macro in Excel 97

The following code always hangs up at this line with a message box telling me

Please Login or Register  to view this content.

always hangs up at this line with a message box telling me

Please Login or Register  to view this content.

with a message box telling me
Run-time error '13':
type mismatch

The preceding insertion of formulas in the range D4:G4 works fine. I am using VB to run this macro in Excel 97. The "ÁÙ´²" above are chinese words that my computer shows and deals with fine.

That works! Thanks! After I ran the macro it had pasted the formulas in but the formula wasn't giving me the desired result then I realized that somehow some extra spaces had gotten in my string to match when I pasted the formula into VB. After I deleted the spaces it worked.