Dim objFso As New FileSystemObject Dim TsStream As TextStream Dim strAlltxt As String strLine As String Dim varAsplit As Variant varBsplit As Variant Set TsStream objFsoOpenTextFilectesttxt ForReading TristateTrue _ read the file content in memory with the unicode flag TristateTrue strAlltxt TsStreamReadAll atach the stream to a string var. Opens a specified file and returns a TextStream object that can be used to read from write to or append to the file. Set the fourth parameter to -1 and presto-changeo.