Added right click menu option for remote desktop for VBA version

Author: tduguid

VB/Scripts/ErrorHandler.vb

@@ -37,30 +37,21 @@ Namespace Scripts
         ''' <param name="ex"></param>
         ''' <param name="isSilent"></param>
         Public Shared Sub DisplayMessage(ex As Exception, Optional isSilent As Boolean = False)
-            Try
-                Dim sf As New System.Diagnostics.StackFrame(1)
-                Dim caller As System.Reflection.MethodBase = sf.GetMethod()
-                Dim currentProcedure As String = (caller.Name).Trim()
-                Dim currentFileName As String = "" 'AssemblyInfo.GetCurrentFileName()
-                Dim errorMessageDescription As String = ex.ToString()
-                errorMessageDescription = System.Text.RegularExpressions.Regex.Replace(errorMessageDescription, "\r\n+", " ")
-
-                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("[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
-
-            Catch ex As Exception
-
-
-            Finally
-
-
-            End Try
+            Dim sf As New System.Diagnostics.StackFrame(1)
+            Dim caller As System.Reflection.MethodBase = sf.GetMethod()
+            Dim currentProcedure As String = (caller.Name).Trim()
+            Dim currentFileName As String = "" 'AssemblyInfo.GetCurrentFileName()
+            Dim errorMessageDescription As String = ex.ToString()
+            errorMessageDescription = System.Text.RegularExpressions.Regex.Replace(errorMessageDescription, "\r\n+", " ")
+
+            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("[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
 
         End Sub