Как получить данные из Excel, используя пользовательскую форму

Question

У меня есть данные, содержащиеся в «Sheet1» только с 2 столбцами.Колонка «А» и колонка «В».

Ниже приведены мои вопросы

1. Приведенный ниже код работает нормально, но на данный момент я должен поставить каждыйотдельное слово в ячейке, чтобы вызвать результат.Есть ли способ там, где я могу набрать только слово или несколько слов, содержащихся в этой ячейке, чтобы это дало результат.

2. Есть ли способ, если у меня есть 2 разных результата, извлеченных из данных, например, дубликаты, какой код, чтобы увидеть дальше.Нужна ли мне командная кнопка, например: Next

---

Private Sub CommandButton1_Click()
    Dim rng As Range
    Dim cl As Range
    Dim vFind
    Dim R As Long

    Set rng = Sheet1.Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))

    vFind = Me.TextBox1.Text
    With rng
        Set cl = .Find(vFind, LookIn:=xlValues)
        If Not cl Is Nothing Then R = cl.Row
        Me.TextBox2.Value = Cells(R, 2).Value
    End With