Public Function OpenTextFile( _
   ByVal FileName As String, _
   Optional ByVal IOMode As IOMode = ForReading, _
   Optional ByVal Create As Boolean = False, _
   Optional ByVal Format As Tristate = TristateFalse _
) As TextStream