Sub GO_()
    sURL = "http://www.nbkr.kg/index1.jsp?item=1562&lang=RUS&valuta_id=15&beg_day=04&beg_month=01&beg_year=2016&end_day=03&end_month=03&end_year=2016"
    Table = Get_Kurs(GetHTTPResponse(sURL))
End Sub

Public Function Get_Kurs(S)
    Dim X()
    ReDim X(1 To 1, 1 To 2)
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = True
    RegExp.IgnoreCase = True
    RegExp.Pattern = "<!\-{2}date\-{2}>([0-9\.]+)<!\-{2}date\-{2}></td>" & _
                     "<td class=""stat-right""><!\-{2}value\-{2}>([0-9\.]+)<!\-{2}value\-{2}>"
    bRes = RegExp.test(S)
    If bRes Then
        Set oMatches = RegExp.Execute(S)
        ReDim X(1 To oMatches.Count, 1 To 2)

        For n = 0 To oMatches.Count - 1
            X(n + 1, 1) = CDate(oMatches(n).subMatches(0))
            X(n + 1, 2) = Val(oMatches(n).subMatches(1))

        Next

    End If
    Get_Kurs = X
End Function

Function GetHTTPResponse(ByVal sURL)
    Dim RRz As String
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", sURL, False
        .send
        sHTMLBody = .responseText
    End With
    Set oXMLHTTP = Nothing
    GetHTTPResponse = sHTMLBody
End Function