VB6.0 saves the data as a TXT file, source code