Usa WMI ...

codice:
Dim oWMI As Object
Dim cShares  As Object
Dim oShare As Object
    
Set oWMI = GetObject("winmgmts:")
Set cShares = oWMI.ExecQuery("Select * from Win32_Share")
For Each oShare In cShares
  Print oShare.Name & " (" & oShare.Path & ") ... " & oShare.Description
Next