VBA NASをカレントに指定する

Private Sub CommandButton1_Click()
    
    Dim sh  As Object
    Set sh = CreateObject("WScript.Shell")
    
    Dim strFileName As String
    
    ' NASのパスを指定
    sh.CurrentDirectory = "\\IPアドレスorホスト名\folder"
    
    ' ファイル選択ダイアログ表示
    strFileName = Application.GetOpenFilename( _
                        FileFilter:="エクセルファイル,*.xls;*.xlsx" _
                        , Title:="タイトル" _
                        , MultiSelect:=False _
                    )

End Sub