أطلب مساعدة من الأخوان بخصوص قراءة الملفات بالنظام الثنائي

اريد برنامجا يقرأ أي ملف بالنظام الثنائي ويظهر الكود بالتكست بوكس بالنظام الثنائي

مثلا

بعد قرأة ملف يظهر بالتكست بوكس 010011100 مثلا

وهذا الكود الذي بدأت ووقفت عنده

Private Sub Form_Load()
Dim var As String * 1
Dim a As String, J As Long
Dim f As String
f = FreeFile
a = "c:\a.exe"
Open a For Binary As #f
	For J = 1 To LOF(f)
		Get #f, J, var
		Text1 = Text1 + var
	Next J
	Close
End Sub

أرجو المساعدة في أسرع وقت

لا تبخلوا علينا بالمساعدة

أخوكم الصبيحي