Для цикла в VBA

Question

Мой текущий код:

Sub test()
    aaa = InputBox("which objects do you want to keep, ie some on the screen:")

    Dim myrange As Range
    Set myrange = ThisWorkbook.Worksheets("Tabell").UsedRange

    For Each cell In myrange.Cells
        If Not (cell.Value Like aaa & "*") Then
            cell.Value = ""
        End If
    Next
End Sub

Но проблема в том, что вы можете написать один раз, что он должен сохранить.То есть пользователь может ввести только один раз, и тогда он удалит все, кроме того, что он пишет.

Но я хочу, чтобы пользователь мог вводить несколько раз, прежде чем удалять все остальное.То есть я хочу, чтобы пользователь написал, например: Objects, Coler, Längd (AND SEN, если он пишет слово END, тогда программа должна спросить его), Если он хочет написать несколько вещей.

Поэтому я хочу, чтобы пользователь мог написать несколько вещей, а затем, когда он закончит писать END, он перестанет спрашивать его.Можете ли вы помочь мне сделать один (цикл For), который позволит пользователю ввести несколько вещей.И тогда (для цикла) заканчивается, когда пользователь вводит END