my problem - i read from the file FromFile. i convert the text there its ASCII value and write the ASCII value back to ToFile.

The problem is i want to convert the spaces in the text file to their ACSII values too (space = 32), not just the letters! PLEASE HELP!


here is my code:

Code:


Open FromFile For Binary As #1
Open ToFile For Binary As #2

For LoopControl = 1 To BufferCount
Get #1, , InByte
Dim ToFile
Dim FromFile

FileSize = FileLen(FromFile)
BufferCount = FileSize / 1


InByte2 = Asc(InByte) 

Put #2, , InByte2

Next LoopControl

Close #1
Close #2
thanks in advance for your help