search and delete multiple item separated by a comma

HI

I have this code below

Sub DeleteRows()
    Dim c As Range
    Dim SrchRng As Range
    Dim SrchStr As String
Dim SrchStr2 As String
    SrchStr2 = InputBox("Please Enter A column to search")
    Set SrchRng = ActiveSheet.Range(SrchStr2 & "1", ActiveSheet.Range(SrchStr2 & "104875").End(xlUp))
    SrchStr = InputBox("Please Enter A Search String")
    Do
        Set c = SrchRng.Find(SrchStr, LookIn:=xlValues)
        If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing

End Sub

I would like to add to this code

I would like in the second input box that you should be able To put in multiple items separated by a comma, and it should perform this macro if it finds any of theses values

THANKS