diff --git a/pricelist.frm b/pricelist.frm
index 3459bdf..ba35389 100644
--- a/pricelist.frm
+++ b/pricelist.frm
@@ -40,6 +40,8 @@ End Sub
 
 Private Sub bPICK_Click()
 
+    Dim fd As Object
+
     '--------Open file-------------
     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
     fd.Show
diff --git a/pricelist.frx b/pricelist.frx
index 723a1e1..7264f0c 100644
Binary files a/pricelist.frx and b/pricelist.frx differ