نقل قول نوشته شده توسط arenaw مشاهده تاپیک
از این استفاده کن ببین مشکلت حل میشه؟


Public Function OpenTextFile(ByVal FilePath As String) As String

    Dim FFile As Byte

    Dim CurByte As Byte

    Dim i As Variant

    FFile = FreeFile()

    Open FilePath For Binary As #FFile

    For i = 1 To FileLen(FilePath)

        Get #FFile, i, CurByte

        OpenTextFile = OpenTextFile & Chr(CurByte)

    Next i

    Close #FFile

End Function
جایگزاری باید کنم تو کد بالا؟
چیز دیگه ای نمیخواد؟!