Dim value as Long
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
    Select Case KeyAscii
       Case 48 To 57  ' hier wird definiert, welche Zeichen zugelassen sind
       Case 8         ' Backspace-Taste für Eingaben-Korrektur
       Case 13        ' Return-Taste (Wert wird abgefragt)
          If Len(Text1.Text) > 8 Then
             Text1.Text = Left(Text1.Text, 8)
             Text1.SelStart = 8 'maximal erlaubte Länge
          ElseIf Len(Text1.Text) > 0 Then
            value = CLng(Text1.Text)
          End If
      Case Else
         KeyAscii = 0
    End Select
 
End Sub