منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
عندي مشكلة اخواني وهو هذا الكود
اولا كان يعمل عندما كان بهذا الشكل
 Dim string1 As String
        Dim ReadString As String
        Dim iFr As Short
        iFr = FreeFile()
        ReadString = "E:\1.txt"
        FileOpen(iFr, ReadString, OpenMode.Binary)
        string1 = Space(LOF(iFr))
        FileGet(iFr, string1)
        FileClose(iFr)
        MsgBox(string1)


ولكن انا اريده ان ياخذ البيانات من اداة التيكست بوكس وليس من الملف الذي في الرابط


 Dim string1 As String
        Dim ReadString As String
        Dim iFr As Short
        iFr = FreeFile()
        ReadString = TextBox1.Text
        FileOpen(iFr, ReadString, OpenMode.Binary)
        string1 = Space(LOF(iFr))
        FileGet(iFr, string1)
        FileClose(iFr)
        MsgBox(string1)


وعندما جعلته هكذا لم يعمل ارجو الحل

---