Public Sub DeleteFile( _
   ByVal FileSpec As String, _
   Optional ByVal Force As Boolean = False _
)