Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 48 To 57
      If Len(Text1.Text) = 4 Then
        Text1.SelText = Chr$(KeyAscii)
        KeyAscii = 0
        ' Sub aufrufen
        List1.AddItem (7634619 & Text1.Text & ";")
        Text1.Text = ""
        Text1.SetFocus
        Command2.Visible = True
      End If
    Case Else
      KeyAscii = 0
  End Select

Blumen sind die sch?nste Sprache der Welt!
Visual Basic ist die aller sch?nste