Hey, im trying to write a new value to the registry using the shell method, ill explain more after i show u what im currently doing.

Code:
ApplicationPath = App.Path & "\" & App.EXEName & ".exe"

RegPath = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\" & _
              "SharedAccess\Parameters\FirewallPolicy\DomainProfile\AuthorizedApplications\List\"
value = ApplicationPath

Dim Shell As Object

    Set Shell = CreateObject("wscript.shell")
    On Error Resume Next

    Shell.RegWrite RegPath & value, ApplicationPath & ":*:Enabled:" & App.EXEName, "REG_SZ" 
    
    If Err.Number <> 0 Then
    Else
    End If
    On Error GoTo 0
Now wat i wanted it to do was add the program to the exceptions list but instead, inside the registry after List it creates C:\ > Documents and Settings \ > Intesive \> etc etc, breaking up every part of my ApplicationPath into a seperate folder, when all i want to do is make the value name: ApplicationPath and the value data: ApplicationPath & ":*:Enabled:" & App.EXEName

Sorry if this is a mouthfull but i appear to be getting nowhere

Any help appreciated.