Ok, so I finally figured it out in case any one else need its.

Once I had a reference to a sheet ie. Set oSheet = oWB.ActiveSheet

I was then able to use:

oSheet.Shapes.Item("TextBox 4").TextEffect.Text = "woo"