こんにちは。
こんな感じになると思います。
(ほかにも方法があるとは思いますが……）
Private Declare Function SetCurrentDirectory Lib "kernel32" Alias _
"SetCurrentDirectoryA" (ByVal CurrentDir As String) As Long
Sub Test1()
Dim vntFileName As Variant
Dim myDir As String
'あらかじめはっきりしていればよいですが、場合によって、
'ここに、ネットワーク・ドライブ・チェックのコードが必要になります。
myDir = "\\public\Excel" 'ネットワークドライブ
SetCurrentDirectory myDir '変更可能
'ファイルを開くダイアログを開きます
vntFileName = _
