Public Sub versteckte_Ordner_Anzeigen()
    Dim WSHShell As Object
    Set WSHShell = CreateObject("wscript.shell")
    WSHShell.RegWrite _
      "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"_
      , 1, "REG_DWORD"
    Set WSHShell = Nothing
'    Reset_after_RegWrite
End Sub