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