Function ReadAll(FilePath) Const adTypeText = 2 Const adReadAll= -1 Const adReadLine = -2 With CreateObject("ADODB.Stream") .Type = adTypeText .Charset = "UTF-8" .Open .LoadFromFile FilePath ReadAll = .ReadText(adReadAll) ' Do Until .EOS '…