Thanks for repling. It is the length of a text string The use will be putting in the drawing and it is unknown. Now having said that...I need to put have the text underlined. If I cannot get the length of he string, is there away to underline the text being entered. the code i am using is:
Set TextObj = ThisDrawing.ModelSpace.AddText(UCase(ViewText), PickPoint, TxtHeight)
TextObj.color = 50
TextObj.Alignment = acAlignmentBottomCenter
TextObj.TextAlignmentPoint = PickPoint