Public Function CreateWriter(ByVal path As String, Optional ByVal overwrite As Boolean = True) As FileWriter
Dim writer As FileWriter
Set writer = New FileWriter
If writer.OpenFile(path, overwrite) Then Set CreateWriter = writer
End Function
Public Function CreateReader(ByVal path As String) As FileReader
Dim reader As FileReader
Set reader = New FileReader
If reader.OpenFile(path) Then Set CreateReader = reader
End Function