请教个局域网访问共享文件夹的问题

Public Function 获取加密文件名() As String        '获得服务器中与自己MAC匹配的加密文件名
mypath = "\\192.168.10.25\共享文件夹\"            ' 指定路径。
myname = Dir(mypath, 7)                           ' 找寻第一项。
Do While myname <> ""                             ' 开始循环。
    Debug.Print myname                            '显示文件名
    On Error Resume Next
    翻译名称 = 解密MAC数组(myname)                '我自己写的翻译函数，可以忽略不计，就是翻译成一个字符串与本机的MAC地址对比
    If 翻译名称 = Replace(MACAddress, ":", "-") Then     '与读取本机MAC地址比较
        获取加密文件名 = myname
        GoTo 完成
    End If
    翻译名称 = ""
    myname = Dir                  ' 查找下一个文件
Loop
完成:
MsgBox "匹配的加密文件名为:" & myname, 26, ""
End Function


在客户端的机子上可以运行的，但是点击按钮开始执行这段代码的时候会卡顿，失去响应大概十几秒，而在服务器（本机）运行的时候速度是很快的，我想问问各位大神，这是由于网速原因还是我的代码不科学？