diff --git a/App/EmailProfiler.Common/clsWorkEmail.vb b/App/EmailProfiler.Common/clsWorkEmail.vb
index 51c0f43..6cb5273 100644
--- a/App/EmailProfiler.Common/clsWorkEmail.vb
+++ b/App/EmailProfiler.Common/clsWorkEmail.vb
@@ -793,7 +793,7 @@ Public Class clsWorkEmail
                 '{pCurrentMail.SenderAddress}',
                 {CURRENT_PROFILE_GUID},
                 '{pStatus}',
-                '{pComment.Substring(0, 500)}'
+                '{pComment.Truncate(500)}'
             )"
         Return _DB_MSSQL.ExecuteNonQuery(ins)
     End Function