Selected Answer
Otto
(You can't upload .csv files here, sorry, only Excel files).
On point (B), I assume you are referring to VA module csv_gegevens and the sub below. The changes in bold (the latter will replace some of yours) should always offer your download folder (in italics) but force the user to pick a file or press Cancel. If a file is selected, it will open that .xls* or csv file:
Sub gegevens_ophalen()
Dim fDialog As FileDialog, result As Integer
Dim r As String
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
'Optional: FileDialog properties
fDialog.AllowMultiSelect = False
fDialog.Title = "Selecteer een bestand"
fDialog.InitialFileName = "D:\Users\Otto van der Laan\Downloads\"
'Optional: Add filters
fDialog.Filters.Clear
fDialog.Filters.Add "Excel files", "*.csv"
If fDialog.Show = True Then r = fDialog.SelectedItems(1)
If r<>"" then Workbooks.Open Filename:=r
Hope this helps. I don't have time to understand all your code/ comments in Dutch and) to answer your question (A).
Hope this helps,