Private Sub Command1_Click()
Dim Data As String
Dim file As Byte
Dim size As Long
Dim curpos As Long
Dim eachbyte As Double

List1.AddItem "Checking files..."
lblStatus.Caption = "Reading " & Trim(Str(FileLen(txtInput))) & " bytes"
List1.AddItem Trim(FileLen(txtInput)) & " bytes"
size = FileLen(txtInput)
eachbyte = Round((100 / size), 10)

curpos = 1
Open txtInput For Binary As #1
Seek #1, 1
Get #1, , file

Open txtOutput & "\test.raw" & curfile For Binary As #2
Put #2, , file
Close #2
Close #1

lblStatus.Caption = "5127996, 5531239"

End Sub