Declare Function GetTextExtentPoint Lib  "gdi32"  Alias  "GetTextExtentPointA"  (ByVal hDC As Long, ByVal lpsz As String, ByVal cbString As Long, lpSIZE As Size) As Long
.......
         Dim hwnd As Long, hDC As Long
         .............................................
         hwnd = GetFocus()
         hDC = GetDC(hwnd)

         ' Compute the width of the text.
         RetVal = GetTextExtentPoint(hDC, Txt, Len(Txt), lpSIZE)
         ConvertPixelsToTwips lpSIZE.cx, lpSIZE.cy
         TxtWidth = lpSIZE.cx