Private Sub txtSearchString_KeyPress(KeyAscii As Integer)
  Select Case Combo1.Text
    Case "Fall 1"
      ...
    Case "Fall 2"
      If List2.Selected(0) Then
        ' In der Liste ist Zahl markiert also nur Zahlen + und Back zulassen
        If Not IsNumeric(Chr(KeyAscii)) Then
          ' Keine Zahl
          If KeyAscii <> vbKeyBack And KeyAscii <> 43 Then
            ' Nicht Back & +
            KeyAscii = 0
            ' Ätsch
          End If
        End If
      Else
        ' In der Liste ist Name markiert
        ' Also nur Text zulassen
        If IsNumeric(Chr(KeyAscii)) Then
          KeyAscii = 0  ' und weg isses
        End If
      End If
    Case "Fall 3"
      ' erlaubte Zeichen für diesen Fall
      ...
    Case "Fall 4"
      ...
  End Select
End Sub