VBA automation

[santosh <santosh@igidr.ac.in>]

Dear All,
I am doing VBA automation with Splus. I am using pApp.ExecuteString().
But I can not execute for loop with many instructions. For example.

pApp.ExecuteString ("x <- seq(1,10,1) ")
pApp.ExecuteString ("for (i in 1:10){weight <- x}")
This will work. 

But below one does not work

pApp.ExecuteString ("for (i in 1:10){weight <- x weight <- weight + 1}") ' weight <- weight/2 weight <- weight + 2 }")

Please help me.
Thanks a lot
Santosh