Removed unused code lines

Author: aduguid

VB/App_Data/ScriptHelp.sdf

@@ -249,9 +249,7 @@
     <Compile Include="TaskPane\GraphData.Designer.vb">
       <DependentUpon>GraphData.vb</DependentUpon>
     </Compile>
-    <Compile Include="TaskPane\GraphData.vb">
-      <SubType>UserControl</SubType>
-    </Compile>
+    <Compile Include="TaskPane\GraphData.vb" />
     <Compile Include="TaskPane\Script.Designer.vb">
       <DependentUpon>Script.vb</DependentUpon>
     </Compile>
@@ -313,7 +311,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
-    <EmbeddedResource Include="Ribbon.xml" />
+    <EmbeddedResource Include="Ribbon.xml">
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
     <COMReference Include="SSCE">

VB/ScriptHelp.vbproj

@@ -28,11 +28,10 @@ Namespace Scripts
             Dim currentFileName As String = "" 'AssemblyInfo.GetCurrentFileName()
             Dim errorMessageDescription As String = ex.ToString()
             errorMessageDescription = System.Text.RegularExpressions.Regex.Replace(errorMessageDescription, "\r\n+", " ")
-            'the carriage returns were messing up my log file
             Dim msg As String = "Contact your system administrator. A record has been created in the log file." + Environment.NewLine
             msg += (Convert.ToString("Procedure: ") & currentProcedure) + Environment.NewLine
             msg += "Description: " + ex.ToString() + Environment.NewLine
-            'log.[Error](Convert.ToString((Convert.ToString((Convert.ToString("[PROCEDURE]=|") & currentProcedure) + "|[USER NAME]=|" + Environment.UserName + "|[MACHINE NAME]=|" + Environment.MachineName + "|[FILE NAME]=|") & currentFileName) + "|[DESCRIPTION]=|") & errorMessageDescription)
+            'log.Error("[PROCEDURE]=|" + currentProcedure + "|[USER NAME]=|" + Environment.UserName + "|[MACHINE NAME]=|" + Environment.MachineName + "|[DESCRIPTION]=|" + errorMessageDescription)
             If isSilent = False Then
                 MessageBox.Show(msg, "Unexpected Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
             End If

VB/Scripts/ErrorHandler.vb

@@ -1,12 +1,12 @@
 Option Strict Off 'late binding on Excel object
 Option Explicit On
 
-'Imports System.Diagnostics
-'Imports System.IO.Path
-'Imports System.Runtime.InteropServices
-'Imports Microsoft.Office.Tools.Ribbon
-'Imports Excel = Microsoft.Office.Interop.Excel
-'Imports System.Windows
+Imports System.Diagnostics
+Imports System.IO.Path
+Imports System.Runtime.InteropServices
+Imports Microsoft.Office.Tools.Ribbon
+Imports Excel = Microsoft.Office.Interop.Excel
+Imports System.Windows
 Imports System.Windows.Forms
 Imports ScriptHelp.Scripts
 
@@ -28,7 +28,6 @@ Namespace Scripts
         Public Shared myTableData As TableData
         Public Shared myTaskPaneTableData As Microsoft.Office.Tools.CustomTaskPane
 
-
         'Public NotInheritable Class AppVariables
         Public Class AppVariables
             Private Sub New()
@@ -168,10 +167,9 @@ Namespace Scripts
                     Case Is = "txtCopyright"
                         Return "© " & My.Application.Info.Copyright.ToString
                     Case Is = "txtDescription", "btnDescription"
-                        Dim AppVersion As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision
-                        Return My.Application.Info.Title.ToString.Replace("&", "&&") & Space(1) & AppVersion
+                        Dim version As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision
+                        Return My.Application.Info.Title.ToString.Replace("&", "&&") & Space(1) & version
                     Case Is = "txtReleaseDate"
-                        'Dim dteCreateDate As DateTime = System.IO.File.GetLastWriteTime(My.Application.Info.DirectoryPath.ToString & "\" & My.Application.Info.AssemblyName.ToString & ".dll") 'get creation date 
                         Return My.Settings.App_ReleaseDate.ToString("dd-MMM-yyyy hh:mm tt")
                     Case Else
                         Return String.Empty