Indtast kriterie VBA

Godaften i stuerne :-)

I forbindelse med en makro vil jeg gerne kunne indsætte et kriterie for en kolonne via en popup box.
Jeg har forsøgt mig lidt frem. I stedet for "S104" skal der komme en besked om hvad man søger og felt til at taste ind.
Er der nogen der kan hjælpe?

Sub test1()
' test1 Makro
    Range("Tabel10[[#Headers],[SAJV Drum Code]]").Select
    ActiveSheet.ListObjects("Tabel10").Range.AutoFilter Field:=19, Criteria1:= _
        "S104"
End Sub

På forhånd tak og god aften