This is independent of font. Except it seems to get it wrong, hence the + 90.

Code:
Text1.Width = TextWidth(Text1.Text) + 90