Изменение поискового кода - VBA

Формулировка задачи:

Подскажите пожалуйста, как нижеуказанный отличный код изменить, чтоб слова искал не только с маленькой но и заглавной буквы, без предварительной записи в столбец, т.е. сейчас надо обязательно прописывать четкое название букв, например "очень*" найдет а если в поисковом тексте "Очень*" то уже нет - с поиском в тексте ранее практически не сталкивался пытался на основе find сделать не получилось можно конечно кучу формул написать на каждую комбинацию но это уже неадекват будет

      Dim r1 As Range, r2 As Range, f1 As Boolean, f2 As Boolean
 
    For Each r1 In Sheets(1).Range("C4:C" & Sheets(1).Cells(Rows.Count, "C").End(xlUp).Row)
        f1 = False: f2 = False
        For Each r2 In Sheets(2).Range("A2:A" & Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row)
            If r1 Like r2 Then f1 = True: Exit For
        Next r2
        For Each r2 In Sheets(2).Range("B2:B" & Sheets(2).Cells(Rows.Count, "B").End(xlUp).Row)
            If r1 Like r2 Then f2 = True: Exit For
        Next r2
        If f1 = True And f2 = False Then Sheets(1).Cells(r1.Row, 1) = "1"
    Next r1

Правильный результат	вывод значения сейчас	текстовый столбец
		ну очень легкая задача выборки
		очень сложные задачи выборки
		к очень сложная задача невыборки
1		Очень легкая задача выборки
		сложная задача выборки
		нелегкая задача выборки
1	1	очень надо помочь
1	1	низина стула и прочее
1	1	низовая подложка чегота
1	1	кулон от маленького гнома и что-то еще

список искомых слов

Столбец1 - с	Столбец2 - кроме
очень*	сложн зада*
малень	привет
сверх	стадо
низ*	стул*
	*пристол
	комод

Решение задачи: «Изменение поискового кода»

textual
                            Листинг программы 
                        
                            option compare text