CoolByte ;)

Private Sub inject_Click(ByVal sender As Object, ByVal e As EventArgs)
    If (Process.GetProcessesByName(Me.txtprocess.Text).Length = 0) Then
        Interaction.MsgBox(("Click Ok To Inject and Auto Start Combat Arms " & Me.txtprocess.Text), MsgBoxStyle.OkOnly, Nothing)
    Else
        Me.inject
        Me.labelx24.Text = "Dll File Injected!"
        Me.Timer1.Stop
    End If
    Me.savelb
    MySettingsProperty.Settings.processs = Me.txtprocess.Text
    MySettingsProperty.Settings.Save
    MySettingsProperty.Settings.Reload
    If Me.closebox.Checked Then
        Me.Close
    End If
    Try 
        Dim str As String
        If (Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE") = "AMD64") Then
            str = Conversions.ToString(MyProjec*****mputer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Nexon\Combat Arms\Ver_US", "RootPath", ""))
        Else
            str = Conversions.ToString(MyProjec*****mputer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Nexon\Combat Arms\Ver_US", "RootPath", ""))
        End If
        Process.Start((str & "\Engine.exe"), "-windowtitle ""CombatArms"" -rez Engine.REZ -rez Game -authip 208.85.111.14 -authport 10001 -pcroom 0 -UserId ")
    Catch exception1 As *********enceException
        ProjectData.SetProjectError(exception1)
        Dim exception As *********enceException = exception1
        Dim str2 As String = Interaction.InputBox("Unable to find the install location of CA, please type in your CA folder location below.", "Error: Unable to find install path", "xxx", -1, -1)
        If (str2 <> "xxx") Then
            Process.Start((str2 & "\Engine.exe"), "-windowtitle ""CombatArms"" -rez Engine.REZ -rez Game -authip 208.85.111.14 -authport 10001 -pcroom 0 -UserId ")
        End If
        ProjectData.ClearProjectError
    End Try
    NewLateBinding.LateCall(RuntimeHelpers.GetObjectValue(Interaction.CreateObject("sapi.spvoice", "")), Nothing, "Speak", New Object() { "Thank you for using Coolbyte Injector" }, Nothing, Nothing, Nothing, True)
End Sub