Bestimmten Ordner anzeigen lassen

Private Sub CommandButton72_Click()
Dim xxx As Long
xxx = Shell("explorer.exe", vbMaximizedFocus)
End Sub

Jetzt möchte ich aber, dass die Drucker im Explorer angezeigt werden, so wie wenn ich START/Drucker und Faxgeräte
Hat jemand eine Idee?
Viele Grüße aus Hamburg bei strahlendem Sonnenschein
Ray