Private Sub Text1_Change(Index As Integer)
  ' Zahl prüfen
  Dim zahl As Long
 
  zahl = Int((Val(Text1(Index).Text) - 1) / 500) + 1
  If zahl < 1 Then zahl = 1
  Label1(Index).Caption = CStr(zahl)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de