Function TextWidth ( Text As String ) As Integer

Return the width of a text string.