zeile löschen wenn

Sub ZeileLoeschen()
Dim lR%, i%
Dim Wert$
Wert = InputBox("Was nicht löschen?")
If Wert = "" Then Exit Sub
lR = Cells(Rows.Count, 3).End(xlUp).Row
For i = lR To 1 Step -1
If Cells(i, 3) <> Wert Then Rows(i).Delete
Next i

End Sub

wie kann ich die inputbox so gestalten, daß ich mehrere werte eingeben kann?

Vielen Dank, hab schon einige tips von euch bekommen und finde es toll, daß sich ein paar personen solche mühe geben.Danke!