From ec47697434d1bef81bad82e6e7a3c823f42109ff Mon Sep 17 00:00:00 2001
From: "Michael J. Seiferling" <mseiferling@gmail.com>
Date: Sat, 27 Feb 2016 15:58:24 -0600
Subject: [PATCH] Tweak for issue #36

---
 GBM/Forms/frmMain.vb | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/GBM/Forms/frmMain.vb b/GBM/Forms/frmMain.vb
index 1dcd263..e11a1b0 100644
--- a/GBM/Forms/frmMain.vb
+++ b/GBM/Forms/frmMain.vb
@@ -547,19 +547,24 @@ Public Class frmMain
     'Functions handling the opening of other windows
     Private Sub OpenDevConsole()
         Dim sFullCommand As String
+        Dim sMainCommand As String
         Dim sCommand As String()
+        Dim sDelimters As String = " :"
+        Dim cDelimters As Char() = sDelimters.ToCharArray
 
         sFullCommand = InputBox(frmMain_EnterCommand, frmMain_DeveloperConsole)
 
         If sFullCommand <> String.Empty Then
-            sCommand = sFullCommand.Split(":")
+            sMainCommand = sFullCommand.Split(cDelimters, 2)(0)
 
             'Parse Command
-            Select Case sCommand(0)
+            Select Case sMainCommand
                 Case "SQL"
                     Dim oDatabase As mgrSQLite
                     Dim bSuccess As Boolean
 
+                    sCommand = sFullCommand.Split(cDelimters, 3)
+
                     'Check Paramters
                     If sCommand.Length < 3 Then
                         mgrCommon.ShowMessage(frmMain_ErrorMissingParams, sCommand(0), MsgBoxStyle.Exclamation)
@@ -584,7 +589,7 @@ Public Class frmMain
                     End If
 
                 Case Else
-                    mgrCommon.ShowMessage(frmMain_ErrorCommandInvalid, sCommand(0), MsgBoxStyle.Exclamation)
+                    mgrCommon.ShowMessage(frmMain_ErrorCommandInvalid, sMainCommand, MsgBoxStyle.Exclamation)
             End Select
 
         End If