VB 打开共享文件夹问题

--------------------编程问答-------------------- onerror行不行？
Private Sub Command1_Click()
on error goto Error
Shell "cmd /c start " & "\\192.168.20.4\公司资料S$"
exit sub
Error:
msgbox "请联系管理员"
End Sub  --------------------编程问答--------------------

引用 1 楼 gxingmin 的回复:

onerror行不行？
Private Sub Command1_Click()
on error goto Error
Shell "cmd /c start " & "\\192.168.20.4\公司资料S$"
exit sub
Error:
msgbox "请联系管理员"
End Sub

不行，没作用

我用下面这句能有提示，但是 windows报错信息也会出现 
Private Sub Command10_Click()
On Error GoTo 100
Shell "cmd /c start " & "\\192.168.20.4\公司资料S$"
On Error GoTo 100
100: MsgBox "请联系管理员！"
End Sub

补充：.NET技术 ,  VB.NET