Patterns: Add warning when control was not found

Patterns/Modules/Controls.vb

@@ -89,6 +89,9 @@ Namespace Modules
                         End Select
 
                         oResult = ReplacePattern(oResult, PatternIdentifier, oReplaceValue)
+                    Else
+                        Logger.Warn("Control [{0}] was not found. Exiting.")
+                        Exit While
                     End If
                 Catch ex As Exception
                     Logger.Error(ex)