Private Declare Function GetEnvironmentVariable Lib _
        "kernel32.dll" Alias "GetEnvironmentVariableA" (ByVal _
        lpName As String, ByVal lpBuffer As String, ByVal _
        nSize As Long) As Long
 
Private Declare Function SetEnvironmentVariable Lib _
        "kernel32.dll" Alias "SetEnvironmentVariableA" (ByVal _
        lpName As String, ByVal lpValue As String) As Long
 
 
'Schreiben
Private Sub Command1_Click()
Dim Fehler As Integer
Dim ReadEnv As String
Fehler = SetEnvironmentVariable("SetEnvTest", "IchWerdNochBekloppt" + Chr(0))
MsgBox CStr(Fehler)
End Sub
 
'Lesen
Private Sub Command2_Click() 
  Dim Buffer As String
  Dim l As Long
 
    l = 256
    Buffer = String$(l, Chr$(0))
 
    l = GetEnvironmentVariable("SetEnvTest", Buffer, l)
 
    If l <> 0 Then
      Buffer = Left(Buffer, l)
      MsgBox ("Umgebungsvariable SetEnvTest =" & Chr$(34) _
               & Buffer & Chr$(34))
    End If
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)