Add new Environment Variable Name and Value

excel vba environment environ 
Sub addEnvironVariables()

    Dim WSS: Set WSS = CreateObject("WScript.Shell")
    Set System = WSS.Environment("User")
    System.Item("Sample") = System.Item("Sample") & ";C:\Sample"

End Sub

Found it on youtube

Related

How do I create a hash function that will return True if any of the fields match?
SQL QUERY - how to get child records with different types but from the same parent group
lock mouse cursor movement only in a control
Auto indent all code without ctrl+A in MATLAB
How to efficiently manage a Stream with try / catch / finally C#
How to curry a Func and pass it to another Func with fewer arguments inside the constructor?
QStringDecoder not callable in PySide6
The most efficient way to check if all values in a row are the same or are missing
BottomNavigationView shows label over icon
Openlayer load GEOJSON from a variable instead of url
How can I get objects in my array to only show up once? JavaScript
Set SVG as mouse pointer image