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