Slet rækker, med inputbox

Godmorgen
Er der muligt at lave en inputbox i denne makro? Dels en der sætter kolonnen ind og dels en der sætter kriteriet ind, større end, mindre end eller lig med noget.
Sub SletRaekke()
    SidsteRk = Range("E" & Rows.Count).End(xlUp).Row
        For i = SidsteRk To 2 Step -1
            If Range("E" & i).Value = 0 Then
                Rows(i & ":" & i).Delete shift:=xlUp
            End If
        Next i
End Sub