SUB CheckPath (txt$, retcd)

'
' This routine supplies a trailing \ to a non-null path not ending : or \
'
  IF LEN(txt$) > 0 THEN
    IF INSTR(":\", RIGHT$(txt$, 1)) = 0 THEN
      txt$ = txt$ + "\"
    END IF
  END IF

  retcd = TRUE

  CheckPathFile$ = txt$ + "CHKPATH.TMP"
  IF LEN(XDir$(CheckPathFile$)) = 0 THEN
    ' we try to create it
  ELSE
    ' a file exists by this name, so we were able to access the path ...
    EXIT SUB
  END IF

  CHKNUM = FREEFILE
  ON ERROR GOTO CheckPathErr1
CheckPathTry1:
  openerr = FALSE
  OPEN CheckPathFile$ FOR OUTPUT AS #CHKNUM
CheckPathRes1:
  IF openerr THEN
    retcd = FALSE
    GOTO CheckPathWrapup
  END IF

  ON ERROR GOTO CheckPathErr3
CheckPathTry3:
  closeerr = FALSE
  CLOSE CHKNUM
  KILL CheckPathFile$
CheckPathRes3:
  IF closeerr THEN
    ' nothing really to do here ...
  END IF

CheckPathWrapup:
  ON ERROR GOTO 0
  EXIT SUB

CheckPathErr1:
  ecode = ERR
  openerr = TRUE
  RESUME CheckPathRes1

CheckPathErr3:
  ecode = ERR
  closeerr = TRUE
  RESUME CheckPathRes3

END SUB

FUNCTION XDir$ (p$)

  XDirErrFlag = FALSE
  ON ERROR GOTO XDirError
  IF LEN(p$) = 0 THEN                      ' NOTE!  DIR$("") is the same
    txt$ = DIR$                            '        as DIR$("*.*") and is
  ELSE                                     '        NOT the same as
    txt$ = DIR$(p$)                        '        DIR$ with no argument!
  END IF
XDirResume:
  ON ERROR GOTO 0
  IF XDirErrFlag THEN
    txt$ = ""
  END IF
  XDir$ = txt$
  EXIT FUNCTION

XDirError:
  XDirErrFlag = TRUE
  RESUME XDirResume

[snips]

2) This will work as well as : Dir( MyPath, attributes )

    If (GetAttr(MyPath) And vbDirectory) = vbDirectory Then

then do:

Sub main()
    Dim myDrives As New FileSystemObject

    If
myDrives.FileExists("\\Alicia_1\Alicia_1_C\WinNT\System32\scrrun.dll") Then
        Debug.Print "I found the file!"
        Debug.Print "================="
        Debug.Print Dir("\\Alicia_1\Alicia_1_C\WinNT\System32\scrrun.dll")
    End If

End Sub

or better

Public Sub Main()
    If ServerExists("\\MachineName\DriveShareName") Then
        ' Do what you need to do
    End If
End Sub

Public Function ServerExists( URL_2_root As String) As Boolean
    Dim myDrives As New FileSystemObject

    If myDrives.FileExists(URL_2_root) Then
        Debug.Print "I found the file!"
        ServerExists = True
    Else
        ServerExists = False
    End If

End Sub