Sub qqq()
Dim a As String, b As Integer, x
    a = 2
    b = 3
    x = a + b
    MsgBox x
End Sub

Private Function IsInCollection(Coin As Collection, _
    ByVal Key As String) As Boolean
    Dim Temp As String
    Temp = 0
    On Error Resume Next
    Temp = Coin.Item(Key)
    If Temp <> 0 Then IsInCollection = True
    On Error GoTo 0
End Function

   On Error Resume Next
    For Each MyElement In Col_1
        If IsInCollection(Col_2, CStr(MyElement)) Then
            Col_sum.Add CStr(MyElement), CStr(MyElement)
        End If
    Next MyElement
    On Error GoTo 0

Private Function IsInCollection(Coin As Object, _
    Item As String) As Boolean
    Dim Obj As Object
    On Error Resume Next
    Set Obj = Coin(Item)
    IsInCollection = Not Obj Is Nothing
End Function

Sub primer()

Dim my_url As String
Dim html_doc As Variant, xml_obj As Variant
Dim Tag_tab As Object
my_url = "http://www.nowgoal.com/6in1.aspx?id=31"

Set html_doc = CreateObject("htmlfile")
Set xml_obj = CreateObject("MSXML2.XMLHTTP")

xml_obj.Open "GET", my_url, False
xml_obj.send
html_doc.body.InnerHTML = xml_obj.responseText
Set xml_obj = Nothing
MsgBox html_doc.body.getElementsByTagName("table")(0).getElementsByTagName("tr")(0).innertext
End Sub

mas(r, 6) = .item(r).getElementsByTagName("td")(4).getElementsByTagName("a")(0).GetAttribute("href")

mas(r, 6) = .item(r).getElementsByClassName("score-time score")(0).getElementsByTagName("a")(0).GetAttribute("href")

Sub Generic_Match_List()
    Dim i As Integer, r As Integer, c As Integer
    Dim mas As Variant
    Dim my_url As String
    For i = 1 To Range("Список[Ссыль]").Count
        my_url = Range("Список[Ссыль]")(i) & "/matches/"
        Set html_doc = CreateObject("htmlfile")
        Set xml_obj = CreateObject("MSXML2.XMLHTTP")
        xml_obj.Open "GET", my_url, False
        xml_obj.send
        html_doc.body.InnerHTML = xml_obj.responseText
        Set xml_obj = Nothing
        'Получение массива с данными
        With html_doc.body.getElementsByTagName("table")(0).getElementsByTagName("tr")
            ReDim mas(.Length, 6)
            For r = 1 To .Length
                For c = 0 To 5
                    mas(r, c) = .item(r).Cells(c).innertext
                    Debug.Print mas(r, c)
                Next c
                mas(r, 6) = .item(r).getElementsByClassName("score-time score")(0).GetAttribute("href")
                Debug.Print mas(r, 6)
            Next r
        End With
    Next i
End Sub

mas(r, 6) = .item(r).getElementsByClassName("score-time score")(0).GetAttribute("href")