'Diese drei prozeduren benutzen nicht das Windows-API, sondern 
' Windows-Scripting-Host!!!
 
'---Lesen---
'Gibt den Wert des Schlüssels aus "Path" zurück
Public Function RegRead(Path As String) As String
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  RegRead = ws.RegRead(Path)
  Exit Function
 
ErrHandler:
  RegRead = ""
End Function
 
'---Schreiben---
' Schreibt den Wert aus "Value" als den Typ aus "Typ"
' in den in "Path" angegebenen Schlüssel
Public Function RegWrite(ByVal Path As String, _
  ByVal Value As String, _
  Optional ByVal Typ As String = "REG_SZ") As Boolean
 
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  ws.RegWrite Path, Value, Typ
  RegWrite = True
  Exit Function
 
ErrHandler:
  RegWrite = False
End Function
 
'---Löschen---
' Löscht den Schlüssel aus "Path"
Public Function RegDelete(Path As String) As Boolean
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  ws.RegDelete Path
  RegDelete = True
  Exit Function
 
ErrHandler:
  RegDelete = False
End Function

RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Autostart", _
  "C:\Starten.exe"

Dim Pfad as String
Pfad = App.path
RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Autostart", _
  ""&"Pfad"&""