=МИН(ЕСЛИОШИБКА(ПОИСКПОЗ("*"&B1:B3&"*";$A$1:$A$7;);""))

Dim cell1 As Range
Dim cell2 As Range
Dim cell3 As Range
Set cell1 = Cells.Find("Текст1", LookIn:=xlValues, LookAt:=1, SearchOrder:=xlByColumns, MatchCase:=0)
Set cell2 = Cells.Find("Текст2", LookIn:=xlValues, LookAt:=1, SearchOrder:=xlByColumns, MatchCase:=0)
Set cell3 = Cells.Find("Текст3", LookIn:=xlValues, LookAt:=1, SearchOrder:=xlByColumns, MatchCase:=0)

    Dim cell1 As Range, t1 As Long
    Dim cell2 As Range, t2 As Long
    Dim cell3 As Range, t3 As Long, t_min As Long
    
    Set cell1 = Cells.Find("Текст1", LookIn:=xlValues, LookAt:=1, SearchOrder:=xlByColumns, MatchCase:=0)
    If cell1 Is Nothing Then t1 = Rows.Count + 1 Else t1 = cell1.Row
    
    Set cell2 = Cells.Find("Текст2", LookIn:=xlValues, LookAt:=1, SearchOrder:=xlByColumns, MatchCase:=0)
    If cell2 Is Nothing Then t2 = Rows.Count + 1 Else t2 = cell2.Row
    
    Set cell3 = Cells.Find("Текст3", LookIn:=xlValues, LookAt:=1, SearchOrder:=xlByColumns, MatchCase:=0)
    If cell3 Is Nothing Then t3 = Rows.Count + 1 Else t3 = cell3.Row
    
    t_min = Application.Min(t1, t2, t3)
    If t_min = Rows.Count + 1 Then MsgBox "ни один текст не найден" Else MsgBox t_min

   Dim cell As Range, t As Long, t_min As Long
    Dim arr, i As Long

    arr = Array("Текст1", "Текст2", "Текст3")
    t_min = Rows.Count + 1

    For i = 0 To UBound(arr)
        Set cell = Cells.Find(arr(i), LookIn:=xlValues, LookAt:=1, SearchOrder:=xlByColumns, MatchCase:=0)
        If Not cell Is Nothing Then
            If cell.Row < t_min Then t_min = cell.Row
        End If
    Next cell

    If t_min = Rows.Count + 1 Then MsgBox "ни один текст не найден" Else MsgBox t_min