build pricelist csv

pricelist.frm

@@ -0,0 +1,48 @@
+VERSION 5.00
+Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} pricelist 
+   Caption         =   "Price List Name"
+   ClientHeight    =   4590
+   ClientLeft      =   120
+   ClientTop       =   465
+   ClientWidth     =   4110
+   OleObjectBlob   =   "pricelist.frx":0000
+   StartUpPosition =   1  'CenterOwner
+End
+Attribute VB_Name = "pricelist"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Public proceed As Boolean
+
+Private Sub bCANCEL_Click()
+    proceed = False
+    Me.Hide
+End Sub
+
+Private Sub bOK_Click()
+    proceed = True
+    Me.Hide
+End Sub
+
+
+Private Sub bPICK_Click()
+
+    '--------Open file-------------
+    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
+    fd.Show
+    
+    tbPATH.Text = fd.SelectedItems(1)
+
+
+End Sub
+
+Private Sub UserForm_Initialize()
+    proceed = False
+End Sub
+
+Private Sub UserForm_Terminate()
+    proceed = False
+End Sub
+
+