divide common module into write and read

vba_code_write_csv_common.bas

@@ -1,3 +1,22 @@
+Function GetSaveCSVPath(Optional ByVal defaultName As String = "") As String
+    Dim savePath As String
+    savePath = Application.GetSaveAsFilename( _
+        FileFilter:="CSV Files (*.csv), *.csv", _
+        Title:="Save CSV", _
+        InitialFileName:=defaultName)
+    
+    If savePath = "False" Or savePath = "" Then
+        GetSaveCSVPath = ""
+        Exit Function
+    End If
+    
+    If InStr(1, savePath, ".csv", vbTextCompare) = 0 Then
+        savePath = savePath & ".csv"
+    End If
+    
+    GetSaveCSVPath = savePath
+End Function
+
 ' Writes a 2D array to a CSV file
 Sub WriteCSVFromArray( _
     ByVal filePath As String, _