Søgefelt VS Kriterie

Jeg har tidligere spurgt omkring "inputBox" og "Criteria1" og fik løsning der virker.
' test1 Makro
Dim Krite As Variant
Krite = InputBox("Indtast det ønskede Tromlenummer")
    Range("Tabel10[[#Headers],[SAJV Drum Code]]").Select
    ActiveSheet.ListObjects("Tabel10").Range.AutoFilter Field:=19, Criteria1:= _
        Krite

Jeg har nu fundet ud af at jeg har stillet spørgsmålet forkert.
Det indtastet i InputBox skal fungere som søge felt.
eksembel:
S4 skal give følgende: "S4", "S41", "S42", ---> "S401", "S402" osv
Men den nuværende løsning giver kun "S4"

Findes der en løsning?