طريقه خواندن فايل هاي باينري

سلام.
كل اطلاعات يه فايل باينري رو چطور بايد خوند؟
اگه از EOF براي پيدا كردن انتهاي فايل استفاده كنم هنگام خوندن يه فايل Exe دچار اشتباه ميشه و قبل از اينكه به آخر فايل برسه حلقه به پايان ميرسه و ممكنه نصف فايل Exe خونده نشه.
در ضمن ميخوام فايل به صورت تكسي خونده بشه .

کد:

---

Private Sub cmdReadValues_Click()
Dim file_name As String
Dim file_length As Long
Dim fnum As Integer
Dim bytes() As Byte
Dim txt As String
Dim i As Integer

    file_name = txtFile.Text
    file_length = FileLen(file_name)

    fnum = FreeFile
    ReDim bytes(1 To file_length)

    Open file_name For Binary As #fnum
    Get #fnum, 1, bytes
    Close fnum

    For i = 1 To file_length
        txt = txt & Format$(bytes(i)) & vbCrLf
    Next i
    txtValues.Text = txt
End Sub

---

[Search]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
...

اين كه فقط عدد ميريزه تو تكس باكس. من ميخوام اطلاعات يه فايل رو بخونم.

پيمان جان، شما كه استاد بنده هستيد،
كد هكس رو به شما ميده.... يه سورس كد hex editor با ويژوال رو بگيريد و روش تحقيق كنيد. براي جستجوي متني خاص در متن تبديل شده به ASCII از كدهاي مربوطه FindString استفاده كنيد. در ضمن به لينكهاي مربوطه هم يه سري بزنيد....

جناب sa3er اين چه حرفيه. ما كه هر چي ياد گرفتيم از شما و دوستان ديگر سايت هست.
ميخوام رو فايل هاي با پسوند Reg كار كنم. كه مربوط ميشه به رجيستري. يه خورده فايل ها عجيبن و فكر نميكنم تا حالا در موردشون بحث شده باشه. ظاهر تكسي دارن ولي به نظر مياد باينري هستن. من كد هگزاشونو نميخوام. من خود اطلاعات موجود در فايل رو ميخوام. همون اطلاعاتي كه هنگام اديت كردنشون تو notepad ديده ميشن. تبديلشونم سرعت رو مياره پايين.
به صورت باينري فايل رو خوندم. ولي بين تك تك حروف يه كاراكتر Null قرار داد. خواستم Null ها رو با "" replace كنم خيلي زمان برد. به صورت نرمال و for input باز كردم كه خط به خط بخونم. با اين روش Null بين كاراكترها قرار نگرفت. ولي eof نميتونه انتهاي فايل رو درست تشخيص بده و نصفه ميخونه.