Private Function SignCount(TextField As TextBox) As Long
  Dim lSignWidth As Long
 
  Set Me.Font = Text1.Font
 
  ' - wie gesagt, es geht nur bei Schriftarten mit fester Zeichenbreite
  ' - deswegen ist es auch egal welches Zeichen zur Breitenermittlung 
  ' herangezogen wird
  lSignWidth = Me.TextWidth("A")
 
 
  ' bei Textboxen mit dem Style "Appearance = 1-3D" ist der Rahmen 3 Pixel breit
  ' bei "0-Flat" bzw. mit "BorderStyle = 0-None" siehts da schon wieder anders 
  ' aus
 
  ' (6 * Screen.TwipsPerPixelX) entspricht der Breite des linken und rechten 
  ' Rahmens
 
  ' Außerdem wird ein eventuell sichtbarer Scrollbalken hier nicht beachtet
  SignCount = (Text1.Width - (6 * Screen.TwipsPerPixelX)) \ lSignWidth
 
End Function

Viel Spass,
R@lf