Option Explicit
Dim bOnlyNumeric As Boolean
 
Private Sub List1_Click()
  If List1.ListIndex > -1 Then
    <font color=green>' nur numerische Eingaben, 
    ' wenn 1. Eintrag in der ListBox ausgewählt wurde</font>
    bOnlyNumeric = (List1.ListIndex = 0)
  End If
End Sub
 
Private Sub txtSearching_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    <font color=green>' Ziffern 0-9</font>
    Case 48 To 57
      If Not bOnlyNumeric Then KeyAscii = 0
 
    <font color=green>' nur Buchstaben A-Z und a-z</font>
    Case 65 To 90, 97 To 122
      If bOnlyNumeric Then KeyAscii = 0
 
    <font color=green>' sonstige Zeichen</font>
    Case Else
      KeyAscii = 0
End Sub