Visual Basic

'Email The Order
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\DOCUME~1\David\LOCALS~1\Temp\" & strFileName & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
        Application.Dialogs(xlDialogSendMail).Show
'Get Back to Front Page

<br />
<br />
Imports System.IO<br />
Imports Microsoft.Win32<br />
Imports System.Security.Permissions<br />
<br />
Public Class MySampleApplication<br />
    Private Sub CreateKey()<br />
            Dim regKey As RegistryKey<br />
            Dim KeyName As String = "MySampleApplication"<br />
            Dim KeyValue As String = "C:\MySampleApplicationFolder"<br />
<br />
            regKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True, Security.AccessControl.RegistryRights.SetValue)<br />
<br />
            If regKey.GetValue(KeyName) = Nothing Then<br />
                'if there's no KeyName yet? then create and set it's value<br />
                MsgBox("No value found")<br />
                regKey.SetValue(KeyName, KeyValue, RegistryValueKind.String)<br />
                MsgBox("key " & KeyName & " has been created")<br />
            Else<br />
                'if KeyName is already existing? then verified it KeyValue<br />
                MsgBox("Value Found")<br />
                If regKey.GetValue(KeyName) = KeyValue Then<br />
                    'if KeyName is already existing and KeyValue is the same? DO NOTHING<br />
                    MsgBox("value equal")<br />
                Else<br />
                    'if KeyName is already existing but the KeyValue is diff from the original? then remodified to it's original path..<br />
                    MsgBox("value not equal")<br />
                    regKey.SetValue(KeyName, KeyValue, RegistryValueKind.String)<br />
                    MsgBox("key " & KeyName & " value has been remodified and back to its original application path")<br />
                End If<br />
            End If<br />
        Catch ex As Exception<br />
            MsgBox(ex.ToString)<br />
        End Try<br />
    End Sub<br />
End Class<br />

command = "msiexec.exe /?" 'Even this is not working

           Try
                CreateProcessWithLogonW(user, domain, password, Convert.ToUInt32(1), _
                            command, command, Convert.ToUInt32(0), Convert.ToUInt32(0), _
                            currentDirectory, startupInfo, processInfo)
            Catch ex As Exception
                Console.WriteLine(ex.ToString())
            End Try