Function IvanPavlov(t, x, q) As String
With CreateObject("VBScript.RegExp")
    .Pattern = "(?:<td width=""40%"">)([^<]+)|(?:<b>)([^<]+)"
    .Global = True
    If x - 1 < .Execute(t).Count Then IvanPavlov = .Execute(t)(x - 1).submatches(q)
  End With
End Function

=IvanPavlov($F2;СТОЛБЕЦ(A1);--ЕЧЁТН(СТОЛБЕЦ(A1)))

Sub param()
    arr_ = Range(Cells(2, 6), Cells(2, 6).End(xlDown)).Value
        Set oDict = CreateObject("Scripting.Dictionary")
        With CreateObject("VBScript.RegExp")
            .Pattern = "(?:<td width=""40%"">)([^<]+)"
            .Global = True
                For x = 1 To UBound(arr_)
                    For y = 0 To .Execute(arr_(x, 1)).Count - 1
                        If Not oDict.Exists(.Execute(arr_(x, 1))(y).submatches(0)) Then
                    
                            oDict.Add Key:=.Execute(arr_(x, 1))(y).submatches(0), Item:=""
                        End If
                    Next y
                Next x
        End With
     arrkey = oDict.keys
     Cells(1, 9).Resize(1, UBound(arrkey)+1) = arrkey
End Sub

Function IvanPavlov(t, p) As String
With CreateObject("VBScript.RegExp")
    .Pattern = "(?:" & Replace(Replace(p, "(", "\("), ")", "\)") & "<\/td><td><b>)([^<]+)"
    .Global = True
    If .test(t) Then IvanPavlov = .Execute(t)(0).submatches(0)
  End With
End Function