Это должно работать для вас. Требуется ссылка на c: \ windows \ system32 \ tlbinf32.dll , но я предполагаю, что все в порядке, поскольку это не сторонний компонент.
Imports TLI 'from c:\windows\system32\tlbinf32.dll
Dim reglib As TLI.TLIApplication = New TLI.TLIApplicationClass()
Dim DLLPath As String = "c:\mycomponent.ocx"
MsgBox(reglib.TypeLibInfoFromFile(DLLPath).GUID.ToString())