allow line label and other code in one line:

```
LineLabel: Dim X as Long
```

Author: josef-poetzl

source/modules/DeclarationDict.cls

@@ -220,15 +220,15 @@ Private Function PrepareCode(ByVal Code As String, ByVal RegEx As RegExp) As Str
       ' remove comments
       '.Pattern = "'(.*)[\r\n]"
       .Pattern = "'(.*)([\r\n]|$)"
-      Code = .Replace(Code, "$2")          
+      Code = .Replace(Code, "$2")
 
 #If DebugPrintEnabled Then
    DebugPrint Code, True, "PrepareCode- after remove comments"
 #End If
 
       ' treat line labels as dim (but not line numbers)
-      .Pattern = "([\r\n]|^)([^0-9\r\n]\S*):([\r\n]|$)"
-      Code = .Replace(Code, "$1Dim $2$3")
+      .Pattern = "([\r\n]|^)([^0-9\r\n]\S*):(\s|[\r\n]|$)"
+      Code = .Replace(Code, "$1Dim $2:$3")
 
       ' dim a as String: a = 5  => insert line break
       .Pattern = "(\:\s)"