Dim x As String

Dim AP84

AP84 = getstring(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\App paths\Mittprogram.exe", "")


x = Shell(AP84, 1)