Dim l As Long
Const ForReading =  1 
Const TristateUseDefault = - 2 
Const NmbrRows =  30000 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
strReportFile = "H:\OL\Reports\text.prn"
 
Set objFile = objFSO.getfile(strReportFile)
Set objTextStream = objFile.OpenAsTextStream(ForReading, TristateUseDefault)
   l =  1 
               Do While (l <= NmbrRows And objTextStream.AtEndOfStream = False)
               l = l +  1 
               TextBuff = objTextStream.readline
               TextBuff = Replace(TextBuff, Chr( 0 ), Chr( 32 ))
               objFileTmp.WriteLine (TextBuff)
               Loop
objFileTmp.Close
objTextStream.Close

dim a as integer
open "H:\OL\Reports\text.prn" for binary access read as # 1  len= 1 
do while not eof( 1 )
   input # 1 , a
   debug.print a
loop
close # 1 

Open "H:\OL\Reports\text.prn" For Binary Access Read As # 1  Len =  1 
Open "H:\OL\Reports\text1.prn" For Output As # 2 
Do While Not EOF( 1 )
   Input # 1 , a
   Write # 2 , a
Loop
Close # 1 
Close # 2