Dim txte As String k1 = FreeFile Open "C:\SedMO\TEMP\InPut\EMLadr.txt" For Input Access Read As #k1 Line Input #k1, txte MsgBox txte Close #k1
http://www.sql.ru/forum/1157161/problemy-s-kodirovkoy-pri-chtenii-iz-txt