To whom it may concern,

Private Sub Command4_Click()

Dim infile As Long
Dim outfile(133) As Byte ????
Dim Q
Dim data As Long

infile = FreeFile
Open Text1.Text For Binary As #infile
filebytes = LOF(infile)

If filebytes > 0 Then
outfile(a) = FreeFile() ?????
Open "c:\binary.txt" For Binary As #outfile(a) ????

For Q = 1 To 8
Get #infile, Q, data
Put #outfile(a), Q, data ????
Next

End If

Close #infile
Close #outfile(133)
End Sub


Well, i copied this coding from some resources and find that i do not understand this coding which i put (???) next to the coding. Wonder anyone could possible explain to me. I have doubts in array.

Dim outfile(133) As Byte ????

As far as i know this (up) coding declare an array which had 133 block. Am i rite?

outfile(a) = FreeFile() ?????

This part i don't understnad why outfile(a)? I mean why there's a (a) next to the outfile. And freefile() = array freefile ... rite?


Put #outfile(a), Q, data

This code above shows that i am trying to put the data into an array called outfile(a)..rite?

Pls Help...thanks..in advnace.