Const buffer_size As Integer = 2
Dim path As String
Dim file_num As Integer
Dim bytes() As Byte

path = App.path & "\" & "1.txt"
file_num = FreeFile
Open path For Binary As file_num
    Do Until EOF(file_num)
        ReDim bytes(buffer_size - 1)
        Get file_num, , bytes
        Form1.Print StrConv(bytes, vbUnicode)
    Loop
Close file_num

Erase bytes

Dim t0 As Single
t0 = Timer
Do While Timer - t0 < 0.4
    DoEvents
Loop