diff --git a/GBM/Forms/frmMain.Designer.vb b/GBM/Forms/frmMain.Designer.vb
index 702f1cb..16c5902 100644
--- a/GBM/Forms/frmMain.Designer.vb
+++ b/GBM/Forms/frmMain.Designer.vb
@@ -200,6 +200,7 @@ Partial Class frmMain
         '
         Me.txtLog.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtLog.Location = New System.Drawing.Point(12, 184)
+        Me.txtLog.MaxLength = 16777216
         Me.txtLog.Multiline = True
         Me.txtLog.Name = "txtLog"
         Me.txtLog.ReadOnly = True
diff --git a/GBM/Forms/frmMain.vb b/GBM/Forms/frmMain.vb
index 6741918..99f4a87 100644
--- a/GBM/Forms/frmMain.vb
+++ b/GBM/Forms/frmMain.vb
@@ -921,7 +921,7 @@ Public Class frmMain
             Me.Invoke(d, New Object() {sLogUpdate, bTrayUpdate, objIcon, bTimeStamp})
         Else
             'Clear the log if we are approaching the limit
-            If txtLog.TextLength > 32000 Then
+            If txtLog.TextLength > 16770000 Then
                 txtLog.Text = String.Empty
             End If