Code cleaning

Redaction/Configuration.xba

@@ -6,6 +6,7 @@ Function initRedactionConfiguration()
 	On Error Goto exceptionHandler
 	Dim regFactory As Object
 	Dim reg As Object
+	Dim redactionProps As Object
     Dim props(2) As New com.sun.star.beans.PropertyValue
 
     regFactory = CreateUnoService("com.sun.star.ucb.Store")
@@ -19,7 +20,7 @@ Function initRedactionConfiguration()
 	initRedactionConfiguration = redactionProps
 End Function
 
-Private Sub setConfigFromDialog(dialog)
+Private Sub setConfigFromDialog(dialog As Object)
 	Dim config As Object
 	config = initRedactionConfiguration()
 	If dialog.getControl("CB_complexity").state = 1 Then
@@ -29,7 +30,7 @@ Private Sub setConfigFromDialog(dialog)
 	EndIf
 End Sub
 
-Private Sub loadConfigToDialog(dialog)
+Private Sub loadConfigToDialog(dialog As Object)
 	Dim config As Object
 	config = initRedactionConfiguration()
 	If config.getPropertyValue("complexity") = "makerUp" Then
@@ -51,11 +52,8 @@ Private Sub configurationDialog
         setConfigFromDialog(dialog)
     Case 0
     End Select
-
     dialog.setVisible(false)
     dialog.dispose()
     Exit sub
-
-	
 End Sub
 </script:module>