faster way of parsing binary variables?

[TheBigB]

Dim B() As Byte, sFilePath As String
    
    sFilePath = "SOMEFILE"
    Open sFilePath For Binary Access Read As #1
      ReDim B(1 To LOF(1))
      Get #1, , B
    Close #1
    
    For i = 1 To UBound(B)
        t1.Text = t1.Text & B(i) & " "
        DoEvents
    Next i

I have pulled this code from here somewhere, but it runs very slow when I put the bytes in the textbox. Is there any way to make this process faster?
thnx in advance

[Bruce Fox]

How is this?

Open sFilePath For Input As #1
      t1.Text = Input(LOF(1), 1)
    Close #1

[TheBigB]

sorry doesn't work for me.... it shows 3 chars for 1,5 mb file.... is the textbox to small?

[Bruce Fox]

Is MultiLine set to True for the TextBox?

[Bruce Fox]

I also assumed it was just Text were loading IAW your Subject. Is that true?

[Bruce Fox]

You;ve changed the Subject. So, what is the goal? - Bianry data?

[TheBigB]

Sorry for all confusion, going to try to make it clear now:

Yes, the textbox is set multiline. I guess the textbox is to small to handle 1,5 mb.
Maybe variables would work, but how do I make an array of variables with the array as small as possible (filling variables to the max)

What I'm doing is for a study making a simple compression, by finding the same variables together. The finding together is no problem, but putting it in lines.

Does that make it clear?