Option Explicit
 
Dim wshShell
Dim input
 
Set wshShell = CreateObject("WScript.Shell")
input = "C:\Testprogramm\Test.exe" & " """ & "4" & """ """ & "1" & """" & " """ _
  & "%1" & """"
 
wshShell.Regwrite "HKEY_CLASSES_ROOT\.egs","Testprg", "REG_SZ"
wshShell.Regwrite "HKEY_CLASSES_ROOT\Testprg\shell\open\command", input,  _
  "REG_SZ"
wshShell.Regwrite "HKEY_LOCAL_MACHINE\Sofware\Classes\.egs", "Testprg", "REG_SZ"
wshShell.Regwrite _
  "HKEY_LOCAL_MACHINE\Sofware\Classes\Testprg\shell\open\command", input, _
  "REG_SZ"
 
MsgBox input, 0, "Registrierung erfolgreich ausgeführt"

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell