Vertical alignment tablecell

I use Word automation in my VB6 application.
I want to vertically align my tablecell.
I do this:

Code:

---

aTable.Range.cells.VerticalAlignment = wdAlignVerticalCenter

---

This works with plain text in my tablecell, but as soon as i add shapes to my
cell the complete celltext jumps back at the top. Is this normal? And is there a workaround?

I have one idea to approach this. I can use Spacebefore on the first paragraph like i did with other alignment solutions. Although i still have to concider how to culculate the correct Y-position.
First i have to know the tabelcellheight, this is easy.
Then i think i have to know the correct y-position of the last paragraph of the tablecell. I still have to look that one up. Then its just subtracting cellheight and LastparagraphYposition and devide by 2. This give me the spacebefore fot the 1st paragrapgh. Spacebefore doesn't seem to conflict with the precense of shapes in the tablecell.