diff --git a/Modules.Patterns/Modules/Controls.vb b/Modules.Patterns/Modules/Controls.vb
index f4e5a846..75c467fb 100644
--- a/Modules.Patterns/Modules/Controls.vb
+++ b/Modules.Patterns/Modules/Controls.vb
@@ -52,7 +52,12 @@ Namespace Modules
 
                             Case GetType(DevExpress.XtraEditors.LookUpEdit)
                                 Dim oLookupEdit As DevExpress.XtraEditors.LookUpEdit = oControl
-                                oReplaceValue = oLookupEdit.EditValue
+
+                                If IsNothing(oLookupEdit.EditValue) Then
+                                    oReplaceValue = String.Empty
+                                Else
+                                    oReplaceValue = oLookupEdit.EditValue
+                                End If
 
                             Case GetType(LookupControl3)
                                 Dim oLookupControl3 As LookupControl3 = oControl