ThisDrawing.ModelSpace.AddMText vPt, 2, strfield
This isn't going to work. The 2 needs to be calculated. It is supposed to be the width of the "box" surrounding the mtext entity. I use Len(string) * textheight * widthfacteroftextstyle. It is not completly correct but it is close enough for what I am doing (I use a lot of big fonts).

strfield looks like a call to lsp from vba(I hope) is it?