Excel clawer2

Sub testData()
Dim array2() As String
    Dim rowNum As Long
    'Set objs1 = Sheets("ORGFCST")
    Dim keywords As String
    Dim ff As Long
   
    rowNum = Sheets("Sheet1").Range("a65536").End(xlUp).Row
    array2() = getCompanyList()
    For ff = 0 To rowNum Step 1
        If array2()(ff) <> "" Then
           keywordsGeneral = clawResult(CStr(array2()(ff)), "aaa", ff)
        End If
    Next
    Shell ("taskkill /f /im IEXPLORE.exe")
    End Sub

Function getCompanyList() As String()
  Dim d, a, c As Variant               
    Dim strT
    Dim strs As String
    Dim array1(100) As String
    Set d = CreateObject("Scripting.Dictionary")
        For i = 2 To Sheets("Sheet1").Range("a65536").End(xlUp).Row Step 1
           'strT = GetChs(CStr(Sheets("Sheet1").Cells(i, 2)))
           strT = CStr(Sheets("Sheet1").Cells(i, 1))
           If strT <> "" Then
            array1(i - 2) = strT
           End If
        Next



getCompanyList = array1()


End Function





Function clawResult(link As String, companyName As String, companyLine As Long) As String
Dim ie, dmt, tb, i&, j&, a&, strxP As String, strsH As String, strsA As String, strsResult As String
       
        Set ie2 = CreateObject("InternetExplorer.Application")
           With ie2
           .Visible = False
               .navigate link
              
               Do Until .ReadyState = 4 Or .busy = False
                   DoEvents
               Loop
              
               Set dmt2 = .document
               If TypeName(dmt2) <> "AcroPDF" Then
               Set contentsP = dmt2.all.tags("p")
                    For i1 = 0 To contentsP.Length - 1
                         'strs2 = strs2 & vbCrLf & contentsP.Item(i1).innertext
                         strsResult = strsResult + contentContains(CStr(contentsP.Item(i1).innertext))
                    Next
                   
                    Set contentsH = dmt2.all.tags("h3")
                    For i2 = 0 To contentsH.Length - 1
                         strsResult = strsResult + contentContains(CStr(contentsH.Item(i2).innertext))
                    Next
                   
                    Set contentsA = dmt2.all.tags("a")
                    For i3 = 0 To contentsA.Length - 1
                         strsResult = strsResult + contentContains(CStr(contentsA.Item(i3).innertext))
                    Next
                   
                     Cells(companyLine + 2, 4) = link
                     Cells(companyLine + 2, 3) = strsResult + "OVER"
                End If
           End With
       
       
  
       clawResult = ""
       
       
    End Function

Function contentContains(content As String) As String
  Dim d, a, c As Variant               
    Dim strT
    Dim strs As String
    Dim array1(100) As String
    Set d = CreateObject("Scripting.Dictionary")
        For i = 2 To Sheets("Sheet1").Range("b65536").End(xlUp).Row Step 1
           'strT = GetChs(CStr(Sheets("Sheet1").Cells(i, 2)))
           strT = CStr(Sheets("Sheet1").Cells(i, 2))
           If InStr(content, strT) Then
            strs = strs & vbCrLf & "|  " + strT + "   :   " + content + "  |"
           End If
        Next

contentContains = strs
End Function