mfgd @ wiki

   Private Function FilePassExtChk(ByVal strPass As String) As String

       Dim fs As New Scripting.FileSystemObject
       Dim strResult As String = String.Empty
       Try
           If False = fs.FileExists(strPass) Then
               strResult = "ファイルが見つかりませんでした"
           End If

           If Not IsNothing(fs) Then
               fs = Nothing
           End If
       Catch ex As Exception
           pvLogging.WriteLog(ex.Message, enumログタイプ.TYPE_ERROR)
       End Try

       Return strResult

   End Function

※FileSystemObjectを使用する際にはscrrun.dllの参照設定を行う必要有。
ネットワークパス指定も正常であることを確認済み（2009/04/03）
VB2008で動作確認済み。