Fungsi Untuk Memperoleh Nama File (Path) dari GUID

Bagaimanakah cara memperoleh nama file (file name) sebuah GUID (Globally Unique Identifier) dari sebuah ActiveX yang telah teregister dalam registry? di bawah ini merupakan implementasi dari kodenya:

'simpan kode di bawah pada modul 
Option Explicit 
 
Dim wsh As IWshRuntimeLibrary.WshShell 
 
Public Function GetFileFromGUID(ByVal GUID As String, Mayor As String, Minor As String) As String 
    Dim s As String 
    Set wsh = New WshShell 
    s = wsh.RegRead("HKEY_CLASSES_ROOT\TypeLib\" & GUID & "\" & Mayor & "\"   & Minor & "\Win32\") 
    GetFileFromGUID = s 
    Set wsh = Nothing 
End Function 

Contoh penggunaan prosedur di atas:

'simpan kode di bawah pada form 
Private Sub Form_Load() 
On Error GoTo ErrHandler 
    'contoh mengambil nama file RichTextBox, Versi Mayor 1.2, Versi Minor 0 
    MsgBox GetFileFromGUID("{3B7C8863-D78F-101B-B9B5-04021C009402}", "1.2", "0") 
    Exit Sub 
ErrHandler: 
    MsgBox err.Description 
End Sub 

Jangan lupa untuk mereferensi pada Windows Script Host Object Model atau WSHOM.OCX