Const STRROOT As String = "C:\report\FILEs\"


    URL = "http://report/20151115/Отчет_20151115.rar"
CSHEET.Cells(15, 2) = URL

  If RARTOFILE(STRROOT, URL) = 0 Then
        Exit Sub
    End If

Function RARTOFILE(sFileName As String, ByVal sArhiveName As String)
    Dim sWinRarApp As String
    sWinRarApp = sWinRarAppPath & " e -o+"
    RARTOFILE = Shell(sWinRarApp & " """ & sArhiveName & """ """ & sFileName & """ ", vbHide)
End Function

Function CheckAddr(straddr As String) As Long
 On Error Resume Next
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", straddr, False
        .send
        If Err.Number = 0 Then
            CheckAddr = .Status
        End If
    End With
End Function