Windows7のVB.NET2008、WebカメラはLogicoolのQcamで質問です。

なお、私のコードの写し間違いかもしれませんので、前後のコードを記載します。
　
Public Function FindCaptureDevice() As IBaseFilter
Dim hr As Integer = 0
Dim classEnum As IEnumMoniker = Nothing
Dim moniker() As IMoniker = New IMoniker(0) {}
Dim source As Object = Nothing
Dim devEnum As ICreateDevEnum = CType(New CreateDevEnum, ICreateDevEnum)

hr = devEnum.CreateClassEnumerator(FilterCategory.VideoInputDevice, classEnum, 0)
DsError.ThrowExceptionForHR(hr)
Marshal.ReleaseComObject(devEnum)
If classEnum.Next(moniker.Length, moniker, IntPtr.Zero) = 0 Then
Dim iid As Guid = GetType(IBaseFilter).GUID
moniker(0).BindToObject(Nothing, Nothing, iid, source)
Else
Throw New ApplicationException("Unable to access video capture device!")
End If
Marshal.ReleaseComObject(moniker(0))
Marshal.ReleaseComObject(classEnum)

Return CType(source, IBaseFilter)
End Function

自己解決しました。
DirectShowLibやDShowNETといったDLLからDirectShowを利用することを考えていたのですが
　
http://www.geocities.co.jp/SiliconValley/7406/tips/dshow2005/dshow2005_3.html
DirectShow関係3(VB2005)
　
今まで例外が発生した部分(たとえば、IBaseFilterの定義部分など)について、この中の「３．２　サンプルグラバによる静止画取得」のソースコードへ置き換えていったら例外がおさまりましたので、この方法で開発していきたいと思います。