Explorer browser- API Having difficulties getting current folder

    Dim IID_IFolderView2 As New Guid("1af3a467-214f-4298-908e-06b03e0b39f9")
    Dim FolderViewType As Type = Type.GetTypeFromCLSID(IID_IFolderView2, True)
    Dim fldrView As Object = Activator.CreateInstance(FolderViewType)
    Dim fldrView1 As IFolderView
    fldrView1 = DirectCast(fldrView, IFolderView)
    Dim pidlInit As IntPtr
    qExplorerBrowser.GetCurrentView(IID_IFolderView2, fldrView1)
    fldrView1.GetFolder(IID_IFolderView2, pidlInit)
    Dim folderPath As New StringBuilder
    SHGetPathFromIDListA(pidlInit, folderPath)
    MsgBox(folderPath)

I am Getting error like these. Can you please say how to use ifolderview.

System.Runtime.InteropServices.COMException: 'Retrieving the COM class factory for component with CLSID {1AF3A467-214F-4298-908E-06B03E0B39F9} failed due to the following error: 80040154 Class not registered (Exception from HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG)).'