Private Sub GetFrames()
'Purpose: searches all frames in the document(s) and adds them to colDocuments

Dim i As Integer, j As Integer
j = 1

Set colDocuments = New Collection
colDocuments.Add webPage.Document

Do While j < colDocuments.Count + 1
    For i = 0 To colDocuments.Item(j).frames.Length - 1
        colDocuments.Add colDocuments.Item(j).frames.Item(i).Document
    Next i
    j = j + 1
Loop
End Sub