Sub Procedure1()

Dim strPath As String

strPath = "путь"

    'Включение обработчика ошибок. Если в какой-то строке кода возникнет ошибка,

        'то макрос перейдёт к следующей строке кода, а не остановится с выдачей сообщения об ошибке.

    On Error Resume Next

'    If Len(Dir("\\00.00.0.000\folder", vbDirectory)) = 0 Then

    If Len(Dir(strPath, vbDirectory)) = 0 Then

        'Если будет ошибка, то в объекте "Err" будет число, не равное нулю.

        If Err.Number <> 0 Then

            MsgBox "Удалённый компьютер выключен.", vbExclamation

        'Если ошибки не будет, то будет это сообщение.

        Else

            MsgBox "нет доступа"

        End If

    End If

    'Отключение обработчика ошибок, чтобы отслеживать непредвиденные ошибки.

    On Error GoTo 0

End Sub